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A GRAFIX 80 F/T 6 versatile Com 
ela voce pode facilmente imprimir 
formularios continuos e folhas 
soltas como papeis de carta, 
envelopes, etiquetas, etc. Isto 
porque a GRAFIX 80 F/T e a unica 
que vem equipada com trator e 
com cilindro de borracba, igual aos 
das maquinas de escrever, 
permit indo a impressio da primeira 
a ultima linha. 




stlenciosa. Imprime em 80 colunas 
a 160 caracteres por segundo com 
baixo nrvel de rukJo. 

Alem de tudo isso, a GRAFIX 80 
compatrvel com todos os 
microcomputadores, especialmente 
com os compativefe IBM-PC, 
imprimlndo todos os softwares 
disponfveis (Dbase III, Lotus 1-2-3, 
Word, ABC, Chartstaretc.) 

ConhepaaGRAFIX80F/T. 
A impressora certa para seu 
micro pessoal ou professional. 
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GRAFIX. TECNOLOGIA SEMPRE EM EVOLUCAO. 




I\l ossa edicao de JOGOS traz di- 
m W versos programas e id&ias inte- 
ressantes, mesmo para aqueles usud- 
rios que preferem aprender a fazer do 
que jogar. Pensando neles, inserimos 
nesta edicSo, al£m das listagens de lo- 
gos, artigos que contem dicas precio- 
sas para os curiosos e autodidatas. 

No artigo "A programacao de lo- 
gos", nosso colaborador Giangiacomo 
Ponzo Neto percorre, com exemplo, os 
diversos elementos que devem constar 
de um bom logo, dando sugestoes de 
como melhor explorar os recursos das 
maquinas. Jd Paolo Fabrizio Pugno co- 
laborou neste numero com um editor 
de adventures, que permitiri a voci 
char suas prdprias aventuras. Nesta 
classe dejogos, um artigo deste tipo 6 
especialmente aconselhSvel, visto se- 
rem os adventures programas em que 
o criador pode gerar enredos, cendrios 
e personagens com vida prdpria. Pode 
ser uma excelente experiencia voce 
char umjogo para seu amigo tentar! E 
al6m das inumeras outras atracoes que 
este numero de MS Ihe traz, os usua- 
rios da linha ZX Spectrum poderao 
aprender — e muito — sobre a mani- 
pulacao de seu video em Assembler e 
a geracSo de grdficos, se tiverem o tra- 
balho de digitar o in£dito monitor grd- 
fico para o TK90X, de autoria do pro- 
gramador Divino C. R. LeitSo, criador 
de diversos jogos comerciais, como o 
Walkihe, Q'BERT, Cavemas de marte 
e Pin ball, pela marca Ciberne, e queja 
ha" alguns numeros integra a equipe de 
MS, na coordenacao do CPD. 

NOTA AOS LEITORES DE MS 

• A partirdesta editfa MICRO SISTEM AS ado- 
rani uma nova classificagdo no material publica- 
do para a linha Sinclair. Na categoria ZX81, esta- 
rao os programas e dicas compativeis com os mi- 
cros nacionais TK82, TK85eCP-200. Quandofa- 
larmos em ZX Spectrum, estaremos nos re/erin- 
do aos programas que rodam no TS2068 e no 
TK90X (por hora, nosso unico compativel com o 
Spectrum inglis). Finalmente, por linha Sinclair 
entenderemos o material que serve tanto para o 
ZX8I quando para o ZX Spectrum. 
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O sorteado deste roe's, que recebera uma 
assinatura anual da revista 
MICRO SISTEMAS, 
6 Ernst R. A. Bergmann, 
do Rio de Janeiro - RJ. 
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Tenho algumas duvidas com reiacao ao 
interessante artigo Apple: O Mapa da ROM, 
encerrado em MS n? 46. Sao elas: 

a) Consta que o interpretador esta na area 
$D000-$D7FF; esta correto? 

b) Nas iinhas $45 -$49 estao os regis trado- 
res A, X, Y, P e S ou A, X, Y, S e P, respec- 
tivamente? 

c) Na area usadapelo BASIC, $0800-$BFFF, 
na"o constou que as areas $0C00-$1FFF e 
$6000-$BFFF nao sao usadas e que estao 
livres para o usuario. 

Eduardo Bonaz Marques 
Sio Paulo - SP 

Deacordo com nosso procedimento habi- 
tual, enviamos sua carta ao autor do artigo e 
recebemos a seguinte resposta: 

"Verifiquei com cuidado os pontos que 
voc§ ressaltou em sua carta. Com reiacao ao 
primeiro item, realmente houve falha de mi- 
nha parte: o interpretador BASIC APPLE- 
SOFT fica entre SDOOO e SF7FF, e nao 
SD7FF. A respeito dos outros dois pontos, 
porAm, nSo ha" erro nenhum. Tudo indica 
que suas duvidas com reiacao A ordem de ar- 
mazenamento dos registradores e As Areas li- 
vres na memdria sao originadas do Guia do 
Usuario do Apple. La", os autores se embana- 
naram com os registradores e chegaram a 
conclusdes erradas, invertendo o stack poin- 
ter e o registrador de flags (S e P). A ordem 
corrreta 6: A, X, Y,Pe S. 

Sob re as Areas SCOO-S1FFF e $6000- 
SBFFF, cuidado I Elas nao estao livres para 
o usuiriol O programs BASIC e suas variA- 
veis comecam em $800 e muito freqiiente- 
mente vSo alAm de $C00, chegando mesmo 
a atropelar as pAginas grAficas de alta resolu- 
cao. Do outro lado, as strings comecam a ser 
armazenada's logo abaixo do HIMEM.e v€m 
descendo em direcao ao inicio da memdria. 
Neste processo de fechamento da memdria, 
o BASIC nao respeita nada, nem mesmo 
suas pAginas grAficas - vocS deve protegS-las 
atravAs dos comandos HIM EM: e/ou LO- 
MEM: . JA que entramos no assunto, cuida- 
do com a explicacSo que A dada no livro 
para o LOMEM: f/LOM EM: ser ve para definir 
o endereco em que vao comecar a ser arma- 
zenadas as variAveis — o interpretador execu- 
ta automaticamente um LOMEM .para a pri- 
meira posicao livre apds o programa). " 
Aldo Felicio Naletto Junior 



Sao Paulo - SP 
LIVROS/BAS 
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No programa Livros/Bas, publicado em 
MS n? 36, a partir do registro 100 do Ar- 
quivo Livros, a listagem feita na tela apare- 
cia com uma linha em branco entre cada re- 
gistro listado. Para resolver este problema, 
fiz algumas pequenas modificacoes nas Ii- 
nhas 610 e 1560. As modificacoes se resu- 
mem em acrescentar, no infeio das duas Ii- 
nhas K$ =STR$(K): e, no final de ambas. 
trocar K por K$. 
Sergio Veludo 
BelSm - PA 



SOS AOS LEITORES 
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Ao estudar Assembler no CP 400, depa- 
rei-me com o problema de geragao de som e 
verifiquei que para produzi-lo e necessario 
preparar o Sel 1 e o Sel 2 e variar a porta de 
som ($FF20), gerando assim sons. Meu pro- 
blema reside em como controlar os seguintes 
parametros dos sons produzidos: frequdncia, 
duracao e volume. Agradeco qualquer ajuda. 
As cartas podem ser enviadas para a Rua Ar- 
lindo Nogueira, 1165/sul, CEP 64000. 
Leonardo Robert de C. Braga 
Teresina — PI 



MS AGRADECE 
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Esta 6 a primeira vez que escrevo a MS, 
apesar de ser assinante ha tres anos. Oesejo 
congratula-los pelo curso de FORTH, ini- 
ciado em MS n° 49, o qual gostei muito. 
Desejaria agora que fosse publicado um ar- 
tigo sobre os diversos compiladores FORTH. 
Gostaria tambem que fosse publicada algu- 
ma dica ou programa para destravar os pro- 
gramas do TK90X. 
Sotero Luiz da Silva 



Santos - SP 
CORRESPONDENCIAS 
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Oesejo entrar em contato com os Coco- 
man t'acos de Sao Paulo. Correspondencias 
para a Rua Manuel Alonso Medina n° 207, 
CEP 04160, Jardim Umuarama. 
J. Ronaldo Bressane Junior (Sao Paulo - SP) 



Gostaria de trocar informacdes, dicas e 
programas com usuarios do ZX Spectrum. 
Meu endereco e SHIN Ql - 11, cj. 13, casa 
07, CEP 71500. 
Alexandre M. Brito (Brasilia - DF) 



PONTO DE VISTA 
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Li com muito interesse a reportagem 
Software: um produto nacional bruto, em 
MS n 9 48. No box sobre producao amado- 
ra, V. Sas. dizem que as idades dos progra- 
madores variam de 16 art 50 anos. Isto nab 
pode ser uma verdade. 

Olhem para mim: sou programador ama- 
dor, muito ativo e sempre estudando. Iniciei 
minha carreira de programador no ano de 
1982, com um NE-Z8000. Aprendi BASIC 
como autodidata, exatamente da maneira 
descrita na materia. AI6m disso, fabriquei, 
entre outras coisas.um teclado, bem como o 
monitor de vi'deo publicado em MS n? 21. 
No trabalho, uso os computadores ao rrwixi- 
mo. 

Hoje tenho, alem do NE-Z, um TK 2000, 
um RINGO, alguns filhinhos pre-programa- 
dores, uma fami'lia encantada com os pro- 
gramas, uma mulher com ciiimes do micro, 
uma memdria melhor do que nunca e 64 
anos bem contados. 

Eu acho que. na verdade, as idades dos 
programadores variam de 16 (?) ate 80 anos. 

Ernst R. A. Bergmann 
Rio de Janeiro - RJ 



Envie sua correspondencia para: 
ATI - Anaiise, Teieprocessamento e 
Informatica Editora Ltda., Av. Presidente 
Wilson, 165/gr. 1210, Centro, Rio de 
Janeiro/RJ. CEP 20030, Sacfio 
Cartas/ Redacab MICRO SISTEMAS. 



"BOM, E QUE NAO CAI 

NA MONOTONIA. 

AQUI MESMO NA EMPRESA 

EU FAQO CURSOS DE 

APRIMORAMENTO" 

Fernando Lopes 
Tecnico de Manutencao 





"MINHA MULHER 

NAO ACORDA MAIS 

COM BIP. 

EU VOU E VOLTO, 

EELANEM 

PERCEBE" 



Luis Alberto Silva 
Tecnico de Manutencao 
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"0 PLIM PLIM DA TV PARECIA 
BIP. Al EU SAIA CORRENDO" 

Rogerio de Figueiredo 
Tecnico Pleno 




CONSERTO E MANUTENQAO 
DE COMPUTADORES 



"NUNCA DEIXAMOS UMA 

MAQUINA PAR ADA. 

SEJA QUAL FOR, ONDE FOR, 

VAMOSCONSERTAR!" 



021 240-4934 
011 240-5899 



Mauro Diniz 
Auxiliar Tecnico 
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HTsff-M RES1UE. 

fS-IV-M 6 um Micro Multiusuario, admite ate 6 terminals de video tec 



teclado 
com capacidade de executar multiplas tarefas. Digite. 
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CEP: 20030 
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De uma chance a sua criatividade. 
Com um micro da linha Sinclair, 
algumas tecnicas e bom-senso, voce 
podera fazer seus jogos! 



M^^*^W. *» "A .. h 



Giangiacomo Ponzo Neto 



Neste artigo, trataremos dos elementos constituintes de 
um jogo e sua elabora^o, a partir de conceitos basicos, 
procurando exempbfici-los para um melhor entendi- 
mento. Para isso, embora o artigo procure ser o mais 
ecletico possivel, usaremos o BASIC Sinclair, por ser uma lin- 
guagem de facil conversao e uso bastante difundido. 

Dividiremos o assunto em dois itens principals: Rotinas B&- 
sicas, comuns a quase todos os jogos animados e que dao a 
"base" do programa; e Recursos Adicionais e Sofistica^des, 
elementos que, mesmo n5o sendo obrigat6rios, podem enrique- 
cer um jogo, tornando-o mais atrativo. 

A primeira coisa a se pensar e, evidentemente, a ideia do 
jogo. Apos ter algo planejado, e uma boa pratica desenvolver as 
situacdes imaginadas na tela, para se ter nocao de como sera o 
visual do que imaginamos. Assim, 6 necessario desenhar as per- 
sonagens envolvidas numa disposi?5o semelhante a que se de- 
verii ter, mesmo que ainda nao exista movimento, o que ajuda- 
ii inclusive a aprimorar o pensamento inicial. A partir dai, pas- 
saremos as Rotinas Basicas, com a descri9a"o das mais comuns. 

DESENHO DOS COMPONENTES 

Existem dois tipos de desenho num jogo animado: os fixos, 
que formam o cenario; e os moveis, que podem sofrer desloca- 
mentos ou sumir e/ou aparecer. Os primeiros sao os mais sim- 
ples para se trabalhar (o que nao implica em menor complexi- 
dade), e deve-se procurar faze-los usando o tipo de comando 
mais facil da linguagem, \i que devem ser definidos no initio 
do jogo e o loop bisico do programa nao deve passar por eles; 
na"o importando, assim, a eventual lentidSo dos comandos usa- 
dos. Nestes desenhos incluem-se paisagens de fundo, solos e 
out ras figuras que permanecerao inalteradas. 

segundo tipo, desenhos mdveis, sao os que mais requerem 
cuidados. Sua impressao, em constante mudan9a de posicao, 
devc ser rapida o suficiente para nao comprometer a emocao 
do jogo. 

Temos dois modos usuais de desenhar na tela: atraves de co- 
mandos do tipo PRINT, PLOT, etc., ou com uso direto do ar- 
quivo de imagem, usando POKE. O primeiro e mais simples, e 
apresenta vantagem, em termos de velocidade, quando o que 
temos a imprimir, de uma so vez, nao e muito pequeno (mais 
de quatro caracteres). Isto porque, apesar do POKE ser mais 
rapido, ele s6 imprime um carater por vez, sendo assim neces- 
sirios varios deles para formar uma figura maior. 

Desenhar com PRINT ou PLOT e elementar e s6 vai depen- 
der de uma boa imagina9ao; porem, a impressao com POKE e 
um pouco mais complexa. A grande maioria dos micros tern o 
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vi'deo fixamente mapeado na memoria. Neste caso, o POKE 
leva o endere90 do ponto de tela que se quer acessar. No 
ZX81, entretanto, a memoria de video tern ini'cio variavel, de- 
pendendo do tamanho do programa. Para encontrar seu ini'cio, 
devemos proceder como no exemplo abaixo: 



IC LET M-PB8K I6346*256«PEEK 16397+1 
20 POKK 

30 POKK A- 1 , ' 38 
40 POKE A'2,1 3' 



programa anterior imprime uma "nave" nas tres primeiras 
posi96es da tela. A linha 10 encontra o endere90 da primeira 
posi9ao. Cada linha de tela tern 32 caracteres e mais um NEW- 
LINE (codigo 118) na posi9§o 33. Para imprimir a nave na se- 
gunda linha da tela, podenamos fazer: 



50 POKE 

60 POKE A- 

70 POKE A-3S. 131 



£ interessante lembrar que, uma vez encontrado o valor na 
linha 10, esta nao precisa mais ser lida, desde que nao se perca 
a variavel (no caso: A). Portanto, a linha citada so precisa figu- 
rar na initial iza9ao do programa. 

Para maiores detalhes e dicas sobre desenhos na tela, veia o 
artigo "Arte e Tecnica na Tela do Computador" (MS n? 27). 

MOVIMENTACAO DE PERSONAGENS 

As figuras moveis sao os elementos que representam a a9ao 
do jogo. Para tal, elas devem ser impressas de forma rapida e 
movidas com igual preocupa9§o. 

Para ilustrar, veremos a maneira mais comum de movimen- 
to, a partir de um caso geral. Para mover uma figura em qual- 
quer dire9ao, da posicao X para Y, teremos, basicamente, o 
mesmo metodo: dada a figura em X, primeiro a apagamos e de- 
pois a imprimimos em Y (estes dois passos podem ser troca- 
dos). Exemplificando: 

10 LET A = 

20 LET B-0 

30 PRINT AT A,B;"S" 

40 LET 

50 LET B*B* ' 

60 PRINT AT A-1 ,B- > :" 

70 GOTO 30 

Para termos movimento em outra dire9ao e/ou sentido bas- 
ta alterar os numeros nas linhas 40, 50 e 60. £ valido notar que 
alguns micros nao usam a formata9ao de tela por linha e colu- 
na. £ o caso dos TRS-80. Para o esclarecimento desta e de ou- 
tras diferencas, e muito interessante ler o artigo "Dialetos BA- 
SIC" (MS n? 46). 

Nao se pode, em BASIC, melhorar muito a velocidade des- 



se movimento. Existem, porem, algumas exce96es. Por exem- 
plo, para um movimento horizontal na linha 21 da tela, pode- 
namos alterar o procedimento anterior com as seguintes mo- 
difica95es, deletando as linhas 10 e 40 e mantendo as outras: 



30 PRINT AT 21,B.-"S" 
60 PRINT AT 21 , B- 1 ; * 



Entretanto, para este caso podemos usar outra rotina, bem 
mais simples e rapida: 



10 LET B»0 

20 PRINT AT II ,B;" S" 

30 1 ET B>B»1 

40 'JOTO 20 



Agora nao hi necessidade de se apagar a Figura anterior, 
pois o espa90 em branco deixado na string da linha 20 \i o faz. 
Existe ainda a possibilid-ade de se usar o POKE, para uma even- 
tual acelera93o da rotina. 

Uma tecnica de simula9ao de maior velocidade e a de se im- 
primir a figura em mais de uma posicao, alem de seu local de 
origem. Equivaleria em substituir a rotina anterior por: 



10 LET B-0 

20 PRINT AT 2) .Br" 

30 LET B-B+2 

40 GOTO 20 



Este artiffcio pode ser usado para obtermos diferentes velo- 
cidades para cada figura. Perceba que o numero somado na li- 
nha 30 e sempre igual ao numero de espa90s em branco antes 
da figura. Neste caso so tern sentido haver espa90s do lado es- 
querdo, ja que o movimento e so para a direita. Caso a figura 
tambem se movesse para a esquerda ou em ambos os sentidos 
seriam necessarios ainda espa90S no lado direito. 

Como ideia final, ilustraremos tambem um caso de movi- 
mento oscilatorio: 



10 PRINT AT 10,10;' 

20 FOR P»1 TO 4 

30 NEXT F 

40 GOTO 10 



';AT 10. 10; "SOS" 



Esse efeito d£ a sensa9§o de superposi9ao de imagens, po- 
dendo ser utilizado para real9ar textos ou figuras ou na si- 
mula9ao de alguns eventos, como a movimenta9ao das helices 
de um helicoptero, por exemplo. O loop entre as linhas 20 e 
30 serve apenas para definir uma espera. 

ORDENS DO JOG ADO R 

Tudo que depende do jogador no desenrolar do jogo decor- 
re do pressionarnento de teclas especificas ou atraves de um 
joystick. Dai a necessidade de comandos que interfiram no 
processamento sem haver parada e alte^ao do programa. Na 
verdade, o ideal e que, alSm dele nao ter que ser alterado, ele nao 
pare. Isso limita muito o uso do INPUT, por ele interromper o 
andamento do jogo. A maneira usual de interagirmos com o 
programa e usar o comando INKEYS (GET em alguns micros). 
Um primeiro modo de se tentar usar o INKEYS para duasou 
mais a9oes, decorrendo da mesma tecla, poderia ser realizado 
pela seguinte rotina: 

10 IF lNKEYS-"0" THEN PRINT "A"; 
20 IF INKEYS="0" THEN PRINT "B"; 
30 GOTO 10 

Duas a95es distintas (no caso, escrever A e B na tela) decor- 
rem do pressionarnento da tecla 0. A rotina anterior funciona, 
porem havendo um inconveniente : como nao ha garantia de 
que voce vai pressionar o exatamente quando o processamen- 
to for para a linha 10, tirando o dedo da tecla na hora em que 
ele sair da linha 20, e impossivel ter a certeza de que as a9(5es 
serao cumpridas na ordem estabelecida. Isto e resolvido no 
exemplo abaixo: 

10 LET A$= INKEYS 
20 IF AS»"0" THEN PRINT "A"; 
30 IF AS»"0" THEN PRINT "B"; 
40 GOTO 10 

Nesse caso, a hierarquia da seqiiencia sera sempre respeita- 
da. Outro metodo usual de se interagir com o jogo e criar uma 
"bandeira" (uma variavel que sinaliza alguma condi9ao), con- 
forme e mostrado abaixo (a bandeira e X, que fica "ligada" 
quando pressionamos a tecla 0). 



10 LET X"0 

20 IF INKEYS*"0" THEN LET X« I 
30 IF X=1 THEN PRINT "A"; 
40 IF X=1 THEN PRINT "B": 
50 GOTO 10 

Em alguns casos, pode-se querer uma a9ao no jogo em 
decorrencia de um toque em uma tecla, sem que se precise 
mante-la pressionada. Isto se consegue substituindo a linha 
50 por 50 GOTO 20 e acrescentando a linha 45 IF INKEYS 
= "I" THEN LET X = 0. A bandeira agora e usada para sina- 
lizar a condi9ao "desligada", quando oressionamos a tecla 1 . 

O uso do INKEYS e comum tambem nos GOTOs condicio- 
nais, como e exemplificado abaixo: 

IF 1NKEYS="0" THEN GOTO XXXX 

Neste caso, ainda, podemos usar uma bandeira: 

IF X=0 THEN GOTO XXXX 

A bandeira ja teria sido definida por um comando INKEYS . 

Um detalhe: os exemplos mostrados sao simples, e pode- 
ria se perguntar se valeriam a pena os metodos mostrados apos 
o primeiro. Porem, ha que se entender que podenamos ter vd- 
rias a95es complexas, decorrendo do acionamento de teclas, e 
nao so o simples fato de se escrever A e B na tela. Nestes casos. 
os metodos vistos devem ser considerados criteriosamente. 

TESTES DE COLISAO 

Quando um tiro atinge um aviao, ou qualquer outro caso 
em que o cruzamento ou colisao de figuras ocorre, imediata- 
mente o programa deve proceder a uma modifica9ao na situa- 
cao. Esta se traduz normalmente em desvios para outras par- 
tes do programa, em mudan9a de concu^oes na tela, incremen- 
to ou decremento de contadores etc. Porem, o que interessa, 
a priori, e detectar as eventuais colis5es de figuras atraves dos 
testes. 

Temos dois modos basicos de faze-los: diretamente das 
informa96es de tela ou atraves do armazenamento das posi9des 
das figuras em variaveis, matrizes ou mesmo em posi9ao mais 
alta da memoria, cnando um buffer. No primeiro caso, compa- 
ram-se os caracteres das personagens envolvidas com os 
caracteres diversos e procede-se a a9ao necessaria. No segundo, 
compaiam-se as posi9oes na tela dos elementos que colidiram 
com o que havia no buffer, e toma-se a decisao programada. 

Usaremos um pequeno programa para exemplificar os dois 
casos. Um missil surge na tela e tenta acertar uma barreira. 
Pclo primeiro metodo teremos que, a cada "passo" do missil, 
testar se a posicao para a qual ele progride contem algum cara- 
ter da barreira. O carater de fim de tela tambem pode ser tes- 
tado para dar fim ao curso do missil. Uma alternativa a issoe 
desenvolver um contador dos passos do missil, que e checado 
periodicamente para sabermos o fun do tiro. Vamos ao exem- 
plo: 

I- F«0 TO 2 1 

20 PRINT AT P.31 . g« 

30 NEXT F 

40 LET B=0 

50 LET A=INT (RND*61«8 

60 PRINT AT 10, ' 

70 PRINT AT A. 13;" --":AT ,\ . 

80 LET B=B*1 

90 IF PEEK (PEEK 16 3<*8 - . ■ - 

100 IF PEEK 

110 GOTO 70 

120 PRINT AT 10. 1. •; 

130 PRINT AT 10. 30; 'Q" : AT 11 , I0i *Q";A1 . TJ 

140 GOTO 160 

•EBROU" 



150 PRINT AT 10, 12; 

160 PAUSE 80 

170 PRINT AT 10,12; 

180 GOTO 4 



1 . AT A . B ; ' 



Uma rapida analise: as linhas 40 e 50 definem parametros 
do missil, as linhas de 10 a 30 e 60 desenham o fim de tela e 
a barreira (o carater da linha 20 e GRAPHICS + SHIFT + A 
e o da linha 1 30 e um X inverso), as linhas 70 e 80 fazem o 
movimento do missil e as linhas de 110 a 180 sao detalhes 
gerais. O que nos interessa esta contido no fim da linha 70 e 
nas linhas 90 e 100. O fim da linha 70 contem AT A,B+3; *. 
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A PROGRAMAQAO de jogos 



que posiciona a variavel do sistema que indica o endere^o do 
proximo PRINT na memoria do video. Essa variavel esta, 
no Sinclair, nos enderec/js 16398 e 16399. conteudo do en- 
dere90 que ela aponta e testado nas linhas 90 e 100. Se o 
numero encontrado for 61 (codigo de "X" - barreira) ou 
8 (codigo de " fifl " - fim de tela), sera dado o desvio previs- 
to. Alguns micros possuem funcOes especiais que determinam 
condi^oes de posi^Ses de tela. uso de variaveis do sistema 
ou funcoes especiais depende muito do micro, sendo necessa- 
rio um estudo mais detalhado das suas caracteristicas para via- 
bilizar o que foi mostrado. 

Para ilustrar o outro me'todo, de BREAK, em seguida 
elimine as linhas 90 e 100 e o fun da linha 70, acrescentando: 

1 DIM X! 3) 

2 LET X( U-10 

3 LET X{2)-1 1 

4 LET XC31-12 

5 LET Y«30 

90 IF (A-Xd) OR A'X(2> OB A-X(3)) AND B*2-Y THEN GOTO 120 
100 IF B*1«Y THEN GOTO 150 

As linhas de 1 a 5 definem o buffer que usamos para guar- 
dar as posi<;5es da barreira (o vetor X guarda as linhas e a varid- 
vel Y,a coluna). A linha 90 testa a posi?ao para aqual o mfssil 
vai prosseguir, comparando-a com a posi$ao da barreira. A 
linha 100 nao precisa testar se as posigoes nao sao da barreira para 
detectar o erro do alvo, pois caso fossem, o processamento ja 
teria sido desviado pela linha 90. Se a barreira fosse movel, 
seu buffer deveria ser alterado a cada movimento. A grande 
diferenca entre os metodos reside no fato de que o segundo 
nao se importa com o que ha na tela. 

O uso de um ou outro me'todo varia muito, porem na 
maiona das vezes, o segundo e mais lento. E um modo de se 
acelerar o primeiro caso e fazer so um teste na linha 90, eli- 
minando a linha 100. Esse teste verificaria se existe algo na 
posi^ao desejada, e, em caso positivo, desviaria o processamen- 
to, onde entao se saberia que tipo de colisao havia ocorrido, 
com acerto ou nao. A velocidade aumentaria, pois o teste 
a cada passo do mfssil seria um, ao inves de dois. 

CONTADORES GERAIS 

Os contadores sao elementos comuns a praticamente to- 
dos os tipos de jogos existentes. Eles representam o balance 
geral da situa?ao do jogador num dado momento, pois contam 
os seus pontos marcados, vidas restantes, numero de inimigos 
eventualmente atingjdos, tempo decorrido ou restante, recor- 
des anteriores e muitos outros parametros vitais para o desen- 
volvimento dojogo. 

A tecnica em si nao traz nada de complicado. Na verdade, 
um contador pode ser um simples incremento em uma varia- 
vel do tipo LET C = C + 1, onde C representa a expressao 
matematica de alguma situac,ao real na tela. Eventualmente, 
poderiamos ter decremento na variavel (no caso da perda de 
uma vida, por exemplo); ou ainda, o numero a somar ou 
subtrair poderia ser maior ou menor que 1 (por exemplo, se 
determinado alvo valesse 10 pontos, outro 20, etc.). 

Usando o ultimo programa visto, poderemos mostrar al- 
guns exemplos de contadores, se incluirmos as seguintes ins- 
tructs : 



6 LET L-0 

7 LET P»0 
45 LET L-L+l 

125 LET P-P+1 

175 IF L-5 THEN GOTO 190 

190 PRINT AT 10,12;"FIM",, ,,TAB 2;"0 MISSIL ACERTOU ",-P;" VEZES" 



Agora temos dois contadores no programa. Rode-o e veja 
a diferenca. Observe que ele so vai fazer cinco langamentos 
(devido ao contador da variavel L), que e o numero de misseis. 
Alem disso, o programa dira quantas barreiras foram atingjdas 
(at raves do contador da variavel P), que e o numero de acertos. 



As linhas 6 e 7 definem os contadores, as linhas 45 e 125 
os incrementam e a 175 faz o teste de fim de misseis. Perceba 
que na linha 100, quando comparamos B + 1 com Y, estamos 
usando um contador (B + 1) quc\ quando chega ao limite 
(Y), ocasiona uma ordem de desvio. 

Obviamente, o programa mostrado foi feito apenas para 
mostrar onde se localizam e como sao feitas certas rotinas 
elementares. Para um jogo ser realmente bom, ainda deve 
contar com outros aspectos. 

Fazer um bom programa implica nao so no uso puramente 
computational de instructs, mas tambem em tecnicas gerais 
de aperfeigoamento. Essas tecnicas fogem ao estilo "rcceita 
de bolo", pois variam muito de acordo com o que se prctende; 
e e nisso que entra a subjetividade do programador ou a sua 
arte. Tais aspectos dao a diferenca basica entre um programa 
e outro que, a primeira vista, fazem a mesma coisa. Agora, 
veremos Recursos Adicionais e Sofisticacoes. 

VELOCIDADE 

Mais do que um recurso, a rapidez e necessaria para propor- 
cionar uma a9ao-reac,ao estimulante para o jogador. Existem 
micros mais lentos que tornam quasc impossi'vel a criagao de 
bons jogos, por torna-los monotonos, notadamente quando 
forerh usadas linguagens de alto nivel como, por exemplo, 
o BASIC. Se pudermos utilizar o BASIC compilado, teremos 
melhores resultados. Porem, se nao dispuscrmos deste recurso, 
torna-se quase obrigatorio o uso da linguagem de maquina. 
Algo neste sentido pode ser visto no artigo "Jogue em Ritmo 
Assembler" (MS n 9 40). Outra tecnica consiste em evitar 
certos procedimentos mais lentos por natureza. Uma discussao 
mais prolongada sobre este e outros aspectos se encontra nos 
artigos "Anime-se e Fa$a Bons Programas em BASIC" (MS n 9 
23) e "Otimize seus Programas em BASIC" (MS n? 31). 

Nas rotinas apresentadas, tentamos discorrer sobre a moro- 
sidade de algumas e a vantagem de alternativas mais velozes e 
igualmente eficientes. 

MEMORIA DISPONI'VEL 

Embora nao seja um recurso por si so, uma maior disponi- 
bilidade de mem6ria possibilita um maior numero de situates. 

Por outro lado, a economia de memoria e, muitas vezes, 
um fator limitador no desenvolvimento de jogos. O melhor 
exemplo disso sao os adventures: quanto menor a capacidade 
de armazenamento, menos situa^oes se tornam possiveis. En- 
tretanto, como no caso da velocidade, existem determinados 
m6todos que levam a um menor consumo de memoria. Os 
principals seriam: evitar comentarios, espasos em branco e ins- 
tructs dispensaveis e usar strings em vez-de niimeros. Porem, 
muito mais pode ser feito. Veja o artigo "Utiliza^ao da memo- 
ria de seu Sistema de Modo Mais Eficiente" (MS n? 5), para 
mais dicas. 

COMODIDADE 

Um jogo deve ser confortavel. Certas vezes, pode ser inte- 
ressante sacrificar a existencia de algum comando para nao 
comprometer a facilidade de agao por parte do jogador. Exem- 
plificando: imagine um jogo (nSo e fato rare.) que use os co- 
mandos basicos de um joystick para movimentos e tiro, porem 
que necessite, por exemplo, de um comando especial de loco- 
mocao (caso tipico do hiperespa^o do "Asteroids"). Ora, e ter- 
rivelmente incdmodo abrir mSo do joystick para pressionar 
uma tecla do micro. Ideal seria se todos os comandos pudes- 
sem ser acionados no primeiro. Em linguagem de maquina po- 
de-se, com certa facilidade, comparar o pressionamento de 
mais de uma tecla ao mesmo tempo. Uma opgao, entao, seria 
usar o botao de tiro e mais um comando do bastao para ordens 
especiais, como a citada. 

Se os comandos forem do. teclado, ha que se tomar cuida- ek 
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O Modem UP- 1237 e o quatro em um da Parks 
porque opera em transmissoes assincronas a 
velocidades de 1200/75 bps ou 300 bps, no padrSo 
CCITT ou no padrSo Bell. 

Voce" vai encontrar nesse modem outros 
diferenciais que a Parks desenvolveu para oferecer o 
maximo em tecnologia: 

• dispositivo de resposta automatica incorporado, 
possibilitando a formacao de redes de 
computadores usando comunicac3o via linhas 
telefdnicas discadas. 

• comutacao manual modem/telefone a partir de 



chave no painel frontal, permitindo acesso aos 
grandes bancos de dados nacionais e internacionais. 

• selecao de velocidade no painel frontal. 

• facilidade de teste de enlace anal6gico local para 
diagnostico do equipamento. 

• visualizacSo da situacao de configuracSo e dos 
circuitos de interface por meio de onze indicadores 
luminosos no painel frontal. 

Como vocS sabe, para a Parks o melhor e a 
perfeicao. Por isso, voce" tera a seguranca de um 
rigoroso controle de qualidade e garantia de 2 anos. 

Comprove. 



Goantbcb 
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do com a disposi9ao das teclas, buscando um maior conforto. 
Elas nSo devem ser adjacentes (para nao as conftindirmos), 
nem muito distantes, e deve-se procurar distribuir as m3os no 
teclado de forma a n5o sobrecarregar a tarefa de uma delas. 

COMPLEXIDADE 

Para jogos de muita acao, e preferivel que haja ate uma cer- 
ta simplicidade na ideia basica, e comandos "curtos e grossos". 
Como exemplo classico temos os "Defenders" (usualmente 
com apenas movimentos verticals e de tiro). Por outro lado, 
jogos que impliquem maior raciocinio podem ser mais comple- 
xes, e alguns chegam mesmo a necessitar disso como fator de 
semelhanca a realidade. E o caso de simuladores-de-voo, que 
dispoem de inumeros comandos, e tendo nisto um dos seus 
maiores atrativos. 

INCREMENTOS GERAIS 

Um jogo ganha muito em em 0950 quando traz em si um 
sentido de competicao; mesmo que esta seja dirigjda contra 
nos mesmos (por exemplo, ao procurarmos bater nossos pr6- 
prios recordes). A simples existencia de um High Score na tela 
aumenta o interesse do jogador. Neste sentido, ainda podemos 
con tar com outros recursos; bonus a cada etapa concluida com 
€xito; tempo extra em caso de realiza^ao de alguma tarefa difi- 
cil; elogios para os grandes feitos ou ate frases lamentando m4s 
atua95es. 

Quanto mais difi'cil for alcazar um objetivo, maior interesse 
temos em atingi-lo. £ 6bvio que existem limites humanos que 
nao podem ser ultrapassados; logo, ao se estipular, por exem- 
plo, o numero de pontos de um jogo que se necessita para ga- 
nhar tempo extra, deve haver a preocupa^ao que estes sejam 
humanamente possiveis de se alcan^ar. 

SOM 

som e, sem duvida, um importante fator no que diz res- 
peito a integracao (envolvimento) do jogador com o que ocor- 
re na tela. De fato, o som se presta, em primeira instancia, a 
dar maior veracidade a simula9ao de uma situa95o qualquer no 
jogo, como o tiro de um canhao. 

Existe, porem, um problema operacional no uso do som de 
forma simples, ')£ que, sendo o processamento das instni95es 
seqiiencial, n2o e possivel que o tiro de canhSo - para usar o 
exemplo anterior — seja visto na tela exatamente ao mesmo 
tempo que e ouvido seu ruido. A solu93o, obviamente, passa 
pela necessidade de se diminuir ao miximo a diferen9a entre 
uma a9§o e sua audi9ao. O problema, ent5o, fica tao maispa- 
tente, quanto mais lento o equipamento ou a linguagem usada. 
Instru96es proximas (se possivel, subseqiientes) sao desejaveis 
para criar um efeito de simultaneidade. 

Outro problema e que os comandos BASIC de gera9ao de 
som sao, via de regra, apenas de notasmusicais e nao sintetiza- 
dores de voz ou geradores de ruido. Habilidosamente, porem, 
pode-se fazer uso de notas mais baixas (menores freqiiencias) 
como ruidos ou de notas intercaladas com silencio, em ritmo 
acelerado, para simular helicopteros, metralhadoras, etc. 

Um uso mais simples e eficiente do som e como detalhe 
para indica95es gerais: recordes batidos, inicio ou fim de jogo, 
troca de naves e outras, justamente por nSo requisitarem tanto 
a simultaneidade ja citada. 

Em equipamentos sem som pode ser usado um recurso ilu- 
sorio, que e o de escrever na tela o ruido do que se quer res- 
sal tar, proximo ao agente da a9ao. Apesar de parecer sem gra- 
9a, a primeira vista, alguns BUMs e BANGs bem localizados du- 
rante um jogo empolgante podem conseguir bons resultados. 

COR 

Diferentemente do som, que pode ser simulado nos micros 
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mudos (at6 por rotinas especiais), a cor n3o admite meio ter- 
mo: ou se tern ou nao; e em caso de existencia, seus comandos 
sao razoavelmente faceis de se compreender, sendo necessario 
apenas usar um pouco de bom senso na escolha das cores, sem 
exagero. Como exemplo de abuso, poderiamos citar os primei- 
ros programas de TV coloridos, que, avidos de demonstrar o 
novo recurso, desenvolviam cenarios de gosto duvidoso com 
todas as cores do espectro misturadas em cada quadro. 

Para dispor de alguma alternativa visual, os micros sem cor 
podem tentar uma simula9ao de "cinza", como aqueles carac- 
teres do ZX81, alternando pontos pretos e brancos(GRAPHl- 
CS+SH1FT+A ou H), recurso esse que pode ser ampliado se 
dispusermos de alta resolu9ao. 

RESOLUgAO GRAFICA 

Como a cor, este e um recurso de tela, sendo porem mais 
util que o primeiro em certos casos. E a velha historia: como 
representar um sapo ou uma galinha com um carater apenas? 
Se tivermos alta resolu9ao (e facilidade com sua opera93o, o 
que nem sempre ocorre), poderemos entao desenhar nosso bi- 
cho, ponto a ponto. Sem este recurso, teremos que nos esfor- 
9ar para usar, dentro do conjunto de caracteres do micro, 
aqueles que mais convierem ao que se tenta representar. Cai- 
mos, assim, outra vez no uso do melhor recurso: nosso bom 
senso. Um asterisco representando uma aranha nao e tao mal 
assim, ja uma letra "A" e lamentavel... 

Som, cor e resolu9ao grafica, em verdade, caminham jun- 
tos. Com o surgimento dos jogos "3D", como o Zaxxon - 
para citar um dos mais famosos - multicoloridos, com mil sons e 
otima resolu92o grafica, talvez n2o seja exagero ver um certo 
romantismo-saudosismo naqueles primeiros videogames, com o 
Space Invaders original. Mas daqueles bichinhos em duas di- 
mensoes e preto e branco tiramos uma grande H950: quando se 
tern boas ideias e se usa a cabe^a, os recursos nao se tornam 
indispensaveis. 

CONCLUSOES 

Tudo o que vimos nao tern a pretensao de ensinar ninguem 
a ser um mestre na arte de fazer jogos. Sao apenas algumas tec- 
nicas e refinamentos que julgamos uteis, e, as vezes, indispen- 
saveis. Contudo, aquele toque final, que vai dar a nossa marca 
registrada, depende so da nossa criatividade, que representa o 
que sentimos e pensamos a nivel individual, posto que somos 
distintos em ideias e gostos. 

Usar as rotinas apresentadas, empilhando-as em camadas es- 
tanques, seria pouco criativo e resultaria num jogo ruim. Todas 
as partes de um programa deste tipo devem interagir. Imagi- 
ne um aviao voando, a uma velocidade X qualquer, e um ca- 
nhao embaixo, esperando o momento mais adequado para o 
tiro. Nao tern o menor sentido haver um "freio" no aviao 
quando atiramos, por causa do maior tempo que precisamos 
para desenhar o tiro. Esses outros detalhes devem ser levados 
em conta quando fizermos um jogo. Ai entao podemos dizer: 
"mas em BASIC nao da!'*. \i muitas vezes n3o da mesmo; e 
temos que recorrer ao Assembler. Mas, nao fiquemos nos cul- 
pando. Afinal, as linguagens de alto nivel foram criadas para, 
justamente, termos melhores condi95es de programar. Se elas 
sao, por vezes, muito lentas e nos obrigam a voltar 3s lingua- 
gens primitivas, a culpa nao e nossa. . . ? 



Giangiacomo Porno Neto cursa Engenhana Elitrica na UFRJ, onde vem 
ganhando experiencia em programacao FORTRAN. Trabalha tambem 
em BASIC e Assembler no seu micro da linha Sinclair e utiliza ainda cal- 
culadoras programiveis. 
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F = pode ser gravado em fita K7 
J = uso obrigatorio de joystick 
48 ■ requer 48K de RAM 
64 ■ requer 64K de RAM 

JOGOS - APPLE II 

- Cr$ 70.000 • 

Sabotage (R - evite os paraquedistas 
Sargon (F) ■ jogo de xadrez 
Draw Poker (F) • jogo de poker 
Blackjack (R ■ jogo de 21 (cartas) 
Checkers (F) ■ jogo de damas 
Fast Gammon (F) • |ogo de gamao 
Othello (F) • jogo de tabuleiro 
Lode Runner • pegue os tesouros 
Olympic Oecatlon - jogos olimpicos 
Space Raiders (F) • de tipo Centopeia 
The Eliminator (R ■ combate espacial 
Night Crawler (F) - enfrente as Centopeias 
Space Eggs (F/J) • cacar ovos espaoais 
Hard Hat Mack - pengos na construcao 
Head On (F) - jogo de corrida 
Choplifter (F/J) • resgate com heiicoptero 
Sea Dragon ■ pilote submarmo 
Spy's Demise (F) • logo de agente secreto 
Star Blazer combate aereo 
Viper (F) - alimente a cobra 
Cavern Creatures penetre na caverna 
Moon Patrol (R • patrulha lunar 
Ms Pac Man (R ■ a namorada do Pac Man 
Mario Bros (F) - Mario contra o gonla 
Buck Rogers pilote sua nave em "Zoom" 
Pitfall II aventuras nas cavemas perdidas 
Castle Woltensteln - engane os nazrstas 
Beyond Castle Wolfenstein mate Hitler 
Aztec • decifre enigma da piramide azteca 
Stellar 7 combate no espaco em 3D 
Ribbtt (R • jogo tipo Frogger 
Super Buny combata as pragas 
Allen Ambush (F/J) jogo tipo Arcade 
Out Post (F) • defenda a estacao espacial 
Defender (F/J) • Defender original 
Dog Fight n (F) - confronto de jatos 
Star Trek Jornada nas Estreias 
Jellyfish pilote um submarmo 
Swashbuckler II duelo de espadachms 
Temple Asphal - aventura no templo 
Flight Simulator (R - simulador de voo 
One on One (J) • basquete com 2 jogadores 

- CrS 150.000 - 

Kareteka • perferta simulagao de karate. 
Enfrente vanos adversanos e liberte a 
princesa do Akuma 

Conan localize e destrua Volta em varias 
fases e com diferentes obstaculos. 
Ghostbusters (J) - morrte uma empresa de 
caca aos fantasmas e comece sua 
aventura. Baseado no filme. 
Summer Games (64) - 8 modalidades 
completas de atletismo, com as mais 
emocionantes provas olimpicas de verao. 



SPY vs SPY ■ divertida acao de espiao 
contra espiao. baseada nos famosos 
personagens da revista MAD. 
Droll - fantastica perseguicdo com varias 
fases Graficos incriveis e acao rapida. 
Sky Fox (J'64) supersimulador de voo 
com mcriveis situacdes de combate em 
vanos niveis Graficos sofisticados. 
Mask of the Sun • aventura grafica. 
No Mexico, voce deve achar os tesouros 
perdidos de uma antiga cmiizacao 
Kabul Spy ■ thnler de espionagem tendo 
Afeganistao como cenario 
Dark Crystal aventura grafica baseada no 
filme "0 Cnstal Encantado" Ache 
fragmento do cnstal. passando por 
diferentes cena>ios 

Flight Simulator II • pilote um Piper 181 
totaimente equipada atraves de realisticos 
cenarios. de Nova York a Los Angeles 
Quando voce estiver preparado enfrente 
um combate real da 1' Goerra Mundial. 
Seven Ctties of Gold (J/64) • aventura 
grafica. Voce deve achar Novo Mundo. 
retornando com ouro e gloria para a Coroa 
The Incrivel HULK • aventura grafica 
baseada na revista do HULK. Voce deve 
dotar este incrivel ser de inteligencia 
Capttaln Goodnight (J/64) • sua missao e 
SALVAR MUNDO das garras do terrivel Dr. 
Maybe, localizando e destruindo a arma do 
juizo final. 

Rescue Raiders (J/64) • pilotando um 
heiicoptero. comande suas tropas, durante 
esta mcansavel batalha. 
Bruce Lee (J) - lute karate como famoso 
Bruce Lee Mate os mnjas e os lutadores de 
sumo, e complete as mais incriveis fases. 
Mr. Do (J) • voce e um magico que devera 
proteger seu pomar de uma terrivel 
praga 

Were Is Carmen Sandlego (64) • seja um 
detetive que devera prender cuipado pelo 
roubo. Viaie pelo mundo coletando pistas 

UTILITARIOS/APLICATIVOS - APPLE II 
-Cr| 320.000- 

Vlslcalc - planilha de calculos 
Vlslplot/Vlsltrend • gerador de graficos 
Visldex - organizador de atividades 
vlsiflle gerador de banco de dados 
Visichedule analise fmanceira PERT/CPM 
Apple LOGO • compilador 
Apple FORTRAN (CP/M) • compilador 
Apple Mechanic - utilitano grafico 
GraFORTH • compilador 
Locksmith 5.0/F - utilitano de c6pia 
Nibbles Away II/C3 - utilitano de copia 
The Graphics Magicians ■ ammador grafico 
The Graphics Solution editor de graficos 
Print Shop • gerador de impressos graficos 
-Cr$ 450.000- 
Turbo PASCAL (CP/M) • compilador 
Take 1 • superammador grafico 

JOYSTICK ANAL6GICO • APPLE II 
-Cr$ 280.000- 

J0G0S - CP-300/500 
- CrS 70.000 - 

Flight Simulator (F) simulador de voo 
Olympic Decatlon (F) ■ logos olimpicos 



O SOFTWARE PARA O SEU MICRO 



Armored Patrol (F) ■ patrulha de tanques 

Allen Defense (F) • proteia-se dos invasores 

Meteor Mission (F) - cacada espacial 

Outhouse \f) - proteja o seu banheiro 

Robot Attack (F) - destrua os robos 

Sea Dragon (F) - pilote um submarmo 

Missile Atack (F) • defenda sua cidade 

Scarf man (F) - jogo tipo Pac Man 

Cavern (F) • escape vivo da cavema 

Penetrator (F) • aprofunde-se na cavemas 

Assault (F) - fuja dos ageis mimigos 

Demon Seed (F| - acabe com os enormes 

passaros 

Cosmic Rghter (F) • jogo tipo Invasores 

Panlk (F) - escape dos roods 

Crazy Painter (F) • pmte a tela, se puder 1 

Chicken ajude a galmha 

Galaxy Invasion (F) - boo Invasores 

Sargon (F) - jogo de xadrez 

Asilo (F) - aventura grafica 

Zork I • superaventura 

Adventur • 4 aventuras diferentes 

FucFuc - programa pornografico 

Ghosts (R ■ cace os fantasmas 

Rally pegue todas as bandeiras durante 

um rally 

UTILITARI0/APLICATIV0S - 

CP-300/500 

•CrS 390000- 

Creator • gerador de programas BASIC 
VIslcalc • planilha de calculos 
Scripslt (F) - processador de textos 
Clone III copiador rapido de discos 
ACCEL 3/4 • compilador BASIC 
Bascom - compilador BASIC 
- CrS 490000 - 

NEWDOS/80 2D - sistema operacional 
D0SPLUS 3J5 • sistema operacional 
Arranger II • arqurvo de diretonos 
Profile III ■ gerador de banco de dados 
SuperSCRIPSfT • processador de textos 
ZEUS • supereditor assembler 
DisnDATA - super disassembler 
-CrS 590.000- 
Producer • gerador de programas 
Super Utility 3.2 - superutilitino 

JOGOS - SPECTRUM/TK 90X 
-CrS 60.000- 

Rghter Pilot (48) ■ pilote um F-15 Eagle 
Flight Simulation (48) - simulador de voo 
Hungry Horace ■ divertido Pac-Man 
Horace & Spiders ■ enfrente as aranhas 
Horace skiing (48) • esquie montanha 
abaixo 

Meteors - destrua os meteoros e naves 
Combate Zone - batalha de tanques em 3D 
TerrorDaktll 40 (48) • acao na terra perdida 
Astro Blaster • defenda o impeno 
Trader (48) ■ comercio e acao no espa?o 
Styx (48) • ande o labirinto e mate a bruxa 
Tutankhamun (48) • explore a tumba 
Arcadia ■ sobreviva na travessia fatal 
Space Intruder |Ogo tipo Invaders 
Tornado (48) pilote o aviao Cenario em 3D 
Planetoids • aventura espacial 
Match Point (48) • fantastico terns em 3D 
Cavelon (48) • uma aventura no castelo 
Galaxy Attack (48) - varias fases no espaco 
Chess jogo de xadrez 
Android 2 (48) • mate os robos, Cenario em 3D 
Escape - saia do labirinto sem ser mono. 
Lab 3D sera que voce sai dessa? 
Ground Attack - jogo tipo Penetrator 
Delta Wing (48) - pilote um caca F- 16 em 3D 
Manic Miner (48) - recolha os objetos da mma 
Potty Painter (48) • preencha os quadrados 
Pool • fantastico jogo de sinuca 



PUffere (48) • recolha as pecas do 

compulador 

Piromania (48) • apague os incendios 

The Pyramid (48) • aventura na piramide 

3D Tank Duel (48) • superbatalha de 

tanques 

3D Starstrike (48) - guerra nas estreias 

Son of Blagger (48) • recolha os objetos 

Psytron (48) • defenda sua base lunar, em 3D 

Wheelle (48) - pilote uma moto no 

subterraneo 

Fall Guy (48) - baseado no filme DURO 

NA QUEDA 

Booga-Boo (48) • ajude o sapo 

Arcventure (48) - mate o Conde Dracula 

Hunckback (48) • ajude o corcunda 

Harrier Attack - combate nas Malvinas 

SPY v SPY (48) • guerra dos espioes. 

Knight Lore (48) - aventura no castelo. em 3D 

Fred (48) • desvende os pengos da 

piramide 

Fantastic Voyage (48) • entre no corpo 

humano 

Alrwolf (48) - baseado no senado AGUIA 

DEFOG0 

1994 (48) uma missSo no futuro 

River Raid (48) • percorra de aviao um no 

perigoso 

Blade Alley (48) ■ desafio espacial em 3D 

Maziacs (48) - cace um tesouro no labirinto 

3D Ant Attack (48) - salve a rnocmha das 

formigas 

Spectres - um jogo diferente boo come-come 

New Poker (48) • classico jogo de poker 

Androids (48) ■ aventura no labirinto 

Chese Cake (48) - salve os humanos 

PSSST ■ salve sua planta das pragas 

Cookie - aiude o cozinheiro 

Scubadiv? (48) - recolha as perofas do mar 

Penetrator (48) ■ destrua o reator 

Jetset Willy (48) - recolha os objetos 

Tranz Am • pegue os trofeus nos EUA 

Full Throttle (48) • corrida de motos, em 3D 

Chequered Flag (48) • mantenha a POLE 

POSITION 

Worse at Sea (48) - mantenha o navio 

flutuando 

Trashman (48) - ajude a manter a cidade hmpa 

JetPac - corstrua os foguetes 

Selddad Attack • combata os invasores 

Aquaplane (48) - uma lancha num mar de 

pengos 

High Moon • duelo no velho oeste 

Invasion Force - destrua a nave mae 

Jump Hallager (48) • pule os obstaculos 

Night Gunner (48) - pilote um bombardeio 

Sir Lancelot ■ pegue os objetos no castelo 

Ghostbusters (48) - caca aos fantasmas 

Blind Alley (48) ■ baseado no filme TR0N 

Molar Maul - defenda seus dentes das caries 

Galaxlans ■ destrua as abelhas assassmas 

Monster In Hell • cuidado com o inferno 

UTILITARIOS/APLICATIVOS • 

SPECTRUM/TK 90K 

• CrS 70.000 - 

VU 3D • utilitano grafico. Telas em 3D 

VU Calc ■ planilha de calculos 

vu File ■ arquivo de dados para uso geral 

Ultra Violet - super disassembler 

MCODER II - compilador BASIC 

Paint Box ■ editor de telas graficas 

- CrS 90.000 - 

SoftCALC • planilha de calculos com 

GRARCOS 

PASCAL 1£ compilador 

SpecFORTH - compilador 

ASSEMBLER - supereditor assembler 

Tasword II • processador de texto com 

64 colunas 



Desejo receber os segulntes programas pelos quals estou envlando um cheque nominal a ATI Edltora Ltda.. Av. Pres. Wilson. 165 - Grupo 1210 • Centro, CEP 20.030 
Rio de Janeiro - RJ. Despesas de correio ja Incluidas. 

Computador:( )CP-300/CP-500( ) APPLE II ( ) SPECTRUM/TK 90X. ITEM(s) PREQOCrS 

Com:.... K RAM. Desejo os programas em: { ) FITA ( (DISKETTE. 

NOME: 

END.: CIDADE: 

UF: CEP.:_ TEL: TOTAL CrS 



Softllne - Av. Graca Aranha, 145, SIJ. 01 - Centro - Rio de Janeiro - RJ • CEP 20.030 - Tel.: (021) 262-6968 



Aqui o jogo e liberado. Escolha o numero, faga suas apostas 
e divirta-se com este programa para a linha TRS-80. 



Roleta 



Antonio JoseAvila da Silva 



Este jogo, que utiliza 13 Kb de mem6ria RAM, foi de- 
senvolvido em um DGT-100, compati'vel com o TRS- 
80. Por ser de dominio popular, ele e muito fdcil de ser 
jogado, mesmo por aqueles que nSo o conhecem. 
Os codigos adotados esta"o explicados no proprio programa, 
e sempre que quiser reve-los tecle (R). 
Veja agora algumas dicas: 

• Em algumas linhas deste programa, que utilizam o coman- 
do PRINT, deve-se adotar o comando ( I ), para localiza92o de 
impressSo na proxima linha. A linha 160 e um exemplo. 

• Linhas que possuam mais de 240 caracteres devem ser 
editadas apos o 240? carater para a inclusao dos restantes. Este 



e o caso, por exemplo, da linha 430. 

• Na linha 370, responsavel pelo comando da roleta, 
se introduzir uma rotina de som para facilitar o jogo, rr 
que esta n3o se assemelhe com o ruido produzido pela be 
ao girar na roleta. 

370 OUT 255,0 :OUT 255,1 :?@602,F$(C);: FOR . . 

• Todos os comandos PRINT deste programa foram es 
com ?. 



Antdnio Jose" Avila da Silva 6 Engenheiro Civil, possui um DGT- 
doisanos e trabalha atualmente na OiregSo Geral do IN AMPS. 




9 'ROLETA II REVISAO 7/84 A. J. AVILA 

199 CLSxCLEAR199xRAND0HxDIHF»<37> .8<21>.R(21>.S(21>.G»(21>.X<21> 

XA-2999IF-1IPRINTCHR*(23>»8478,"R L E T A"x « FOR AA-lTOAx NEXT :CL 

S«PRINT829."INSTRU_0ES <S/N>" j XG0SU8289X IFU*< >"S",CL6iG0T0299EL 

SECLS »PR INT827 , "ROLETA" 

119 PRINT884."ABREVIA_0ES ADOTADAS"«PRINT"PR-PRET0 VE-VERHELHO 

ME-MENOR HA-HAIOR PA-PAR IM-IMPAR 
Cl-COLUNA 1 C2-C0LUNA 2 C3-COLUNA 3 
Dl-DUZIA 1 02-DUZIA 2 03-OUZIA 3 

129 PRINT'PL-PLENO SP-9EMI-PLENO RU-RUA 0U-8UADRA ES-ESO 
UICHO 

PL-PLENO 1 29 1 23 1 26 1 

SP-SEHJ-PLENO 1291231261 

RU-RUA 1 91 192 1 93 1 

139 PRINT" QU-QUAORA : 08 : 1 1 I 



PL-PAOA 33 VEZES 
SP-PAGA 17 VEZES 
RU-PAGA 11 VEZES" 



8U-PAGA 8 VEZE 



ES-ESGUICHO 
148 PRINT" 

8 



i«7 : i«: 
: 18:21 : 



J 161 191 



ES-PAGA 5 VEZES 

C1-C2-C3 2 VEZES 

117 I 29 1 



01-02-03 2 VEZE 



VE-PR-IH 1 VEZ 
ME-MA-PA 1 VEZ" 

159 F0RAA«lT0AxNEXTxSET<57,19>iSET<58.19>xSET<61 f 22>iSET<69,22>l 

9ET<66,25>xSET<67.25)«SET<54.29>xSET<35,29>xSET<54.41>iSET<55.41 

MG0SU81929 

169 PRINT"MENOR SHE I DE 91 A 18 

MAIOR I HAI DE 19 A 36 

CI - 1911*41 1341 

C2 - 1921931 1331 

C3 - 193! 96! - - 1361 

ZERO E ' DA BANCA 

179 PRINTiPRINT"»»»«"»««»"»»««»«»i»»»« COHANDOS NO TECLADO •»•••• 

■•••••••••••••■•0 caclfe c' d» 199 fichaa, para adquirir outro t 

aela <K>." 

189 PR INT"Ouant idade de ficha* iciaa de 999 va i pari a Hunt. 

Jogadorea (A> (8> <C> <D) (E> (tecle para Jogar). 

Para dlracionar t \ ~CHR*<93>" "CHR*<94> «PRINT~De (1) a (9) par 

a apoatar e para anular (a) (b> <c) (d> (>>." 

199 PRINT"Par» girar a roleta (G). para ravar aa inatrutoea (R) 

e para contab 1 1 idade (L>. Maxlato 4 apoataa por jogador ." i :GOB 

UB 19291 IFF-20RF-4THEN239 

299 CLSiPRINT«PRINTHNPUT"9UANT0S JOGADORES (MAXIMO 5>"|A«IFA<1 

0RA>5THEN299ELSEPRINT"N0ME DOS PARTICIPANTES COM 4 LETRAS"! A-A*l 

•B-124iN»25:P=641 

219 0=0+l«IF0OA.INPUTA*<0)IA*(0)-LEFT*<A*(0>,4)iG0T0219 

229 CLS«F0R0«1T05«K(0)-1IC(0)-199UFA*<0)-"",A*(0>-" "xNEXTEL 



SEA*(0)=A*(0)*" 
239 PRINT89." 

249 PRINT864." 
9 I 33 1 36 1 

259 PRINT8192." 
29 ! 32 I 35 I 



:A*(0)-LEFT4(A*<0).4>iNEXT 



I 93 I 96 I 99 ! 12 I 15 1 18 I 21 I 24 I 27 I 3 

I ] • | j j | | | |__ 



92 1 95 I 98 I 11 I 14 1 17 i 29 I 23 1 26 ! 
1 1 1 1 1 1 | [ | _ 



269 PRINT8329.* 
28 1 31 I 34 I 



I 91 1 94 I 97 I 19 I 13 i 16 I 19 I 22 I 25 



I — 



•I 1 1- 



--:- 



-i :- 






•i"i 



Cl 1 C2 ! C3 I PR ! WE I ME ! MA 1 PA 



IM 



279 PRINT8448,' 
D3 1 D2 I Dl I 

"l tSET<8.N)iSET(B*l,N)iIFF-10RF«4THENG0SUB989iPF 

49IG0T0759ELSE289 

289 U*»INKEY»UFU*«CHR*<8),F«2xG0T0340ELSEIFU»-CHR*C9),F-2tG01 

39ELSEIFU*-CHR*<91).F-2«G0T0359ELSEIFU*-CMR*<19>,F»2lG0T0369EL 

IFU*""K~.D-9«G0T0799ELSEIFU*«"A",A-8lE-9lI-9iP-641lG0T0499ELSe 

U*-"B",A-34«E-4U-9«P-654IG0T0499 

299 IFU%«"C".A-69«E»8tI-9tP-667«G0T0499ELSEIFUl""D",A=86:E-12i 

9«P-689:G0T0499ELSEIFU*-"E".A«112«E«16«I-9«P"693IG0T0499ELSEIF 

-"l".T-ltGOTO410ELSEIFU*-"2~,T-2sGOT0419ELSEIFU*-"3",T»3iG0T0' 

ELSEIFU*-~4".T-4xGOTO410 

399 IFU*""5".T-5iG0T0419ELSEIFU»»"6".T-6«G0T0419ELSEIFUS«"7",1 

«GOT0419ELSEIFU§-"8",T-8lGOTO419ELSEIFUS»"9~,T«9xG0T0419ELSEIF 

-"S*\U»-~R"iX*-~U~JRETURNELSEIFU*«"N",W*»X*iPRINT" N" "RETURN 

319 IFU*-"T",1999ELSE I FU*-"G",GOSU8979i 0-1 99 xC-lx RESTORE xP«64S 

=RND(37>iF0RG-lT037«READF«(G)lNEXTiG0T0379ELSEIFUS-"R".F-4lD-< 

-64UCLSlG0T0119ELSEIFU*-"L~.D-9iG0T0939 

329 IFU*-"a".E-liP-794xGOT0969ELSEIFU»»"b",E-5xp-717xGOT0969EL 

IFU*-"c".E"9iP-739iG0T0969EL3EIFU»-"d".E»13lP»743«G0T0969ELSEl 

*""e~,E=17lP-756«G0TO969ELSE289 

339 RESET(8.N)«RESET(B*l,N>iB»B+5tIFB>124THENB»4«O0TO239ELSE2; 

349 RESET <B,N>»RESET(B+l.N)iB-8-5iIFB<4THEN8=124«G0T0239ELSE2: 

339 RESET (B.N>«RESET(B*l.N)«N«N-3HFN<lTHENN=25iG0T0239ELSE23< 

369 RESET(B.N)iRESET(B*l,NHN»N*3iIFN>25THENN-liG0T0239ELSE23< 

379 0UT255,9x0UT255,llPRINT8692,F»<C>x«FORU«lTOOSTEP50xNEXTlC« 

1 t IF037THENC-1 I 0-0*299 

389 IFO< )9990RC< >D . PRINT8692, " "l xFORG- 1T00STEP: 

NEXTIG0T0379 

399 PRINT8692." "|8692.F*<C > i x IFD-1THENPR INT8571 

A 8ANCA VENCEU"«lG0T0999ELSEF0RG-2T0DxREADZ,S*.lS,L».M*xNEXTIl 

■G0T0829 

499 G0SUB979lSET(A,29)iSET<A*1.29)«SET<A*2,29)iSET(A*3,29)iG01 

89 

410 IFB=40RB-124THEN289ELSEIFN-lTHEN629ELSEIFN-4THEN429ELSEIFf 

THEN469ELSEIFN=10THEN500ELSEIFN-13THEN540ELSEIFN-16THEN580ELSf 

N-19THEN629ELSEIFN-22THEN669ELSE289 

429 IFB»9THEN9*-"PL"lU-3»W-3ELSEIFB-14THENa*-"SP"lU-3IW-6ELSEI 

-19THENQ$-"PL"iU-6xV-6ELSEIFB-24THEN«S-"SP"tU»6»W-9ELSEIFB-29- 

N8*»"PL"iU-9iV»9ELSEIFB"34THEN«t-"SP"lU-9tV-12ELSEIFB-39THEN0! 

PL"«U-12«W-12ELSEIFB-44THEN9»-"SP"«U-12iW»15 

439 IFB»49THEN9*-"PL":U-15iV«15ELSEIFB-54THENG*-"9P"iU"15iW-H 

SEIFB»59THEN«*»"PL"«U»18tW-18ELSEIFB-64THEN9*-"SP"!U»18:V-21El 

IFB-69THEN8»-"PL"iU»2HU-21ELBEIFB-74THEN0*-"SP"lU-21lU-24ELSE 

B-79THEN8*-"PL"«U-24iV«24ELSEIFB-84THENa*»"SP"«U"24lV«27 

449 IFB-89THEN84-"PL"xU-27iV«27ELSEIFB-94THENa*»"SP"xU«27xV-3« 

SEIFB-99THENQ*»"PL"lU»39lV«39ELSEIFB-194THEN9*-"SP"iU-39xW-33f 

EIFB-199THEN«*-"PL"«U-33iV-33ELSEIFB-114THENa*-"SP"iU-33«W-36( 

EIFB-119THEN8%-"PL"tU-36iU-36 

459 G0T0689 

469 IFB»9THENa»»"SP~«U-2xV-3ELSEIFB-14THENa*«~8U"«U-2xV"6ELSE 

-t9THEN9*-"SP"tU-5xV»6ELSEIFB=24THENa»="aU"«U-5«V-9ELSEIF8*29" 

N9S-"SP"lU»8«W-9«ELSEIFB-34THENa*-''0U"«U=8lW-12ELSEIFB'=39THENi 

"8P"iU«ll«W»12ELSEIFB-44THENa»»"aU":U=lUV»13 

479 IFB"49THENa*-"SP"iU=14iW-15ELSEIF8-54THENa»""aU':U"14:U=ll 
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SEIFB-59THENa*-"SP"«U=17:W-18ELSEIFB-64THEN9*-"aU"«U-17:W-21ELSE 

IFB-69THENe*-"SP iU-28«V«21ELSEIFB-74THEN9*-"8U"xU»29XV*24ELSEIF 

B-79THEN8S»"SP"iU»23xU-24ELSEIFB-84THEN8*="9U"iU=23iW-27 

480 lFB-89THEN8*="SP":U=26xW»27ELSEIFB-94THEN8*-"aU"xU-26iW>39EL 

SEIFB=99THENa*="SP"iU"29lW-39ELSEIFB-194THENe*-"8U"xU-29xW»33ELS 

EIFB«199THEN8S-"SP"xU-32xV-33ELSEIFB-114THEN8»=-"8U"iU«32xW-36ELS 

E IFB=1 19THEN8*-"SP" IU-351 V"36 

490 GOT0689 

599 IFB=9THEN8* = "PL"JU«2xV=2ELSEIFB-14THENa*»"SP"iU-2lW«=5ELSEIFB 

=19THEN8*="PL"xU»5xU«5ELSEIFB-24THEN9*-"SP"sU«5xv=8ELSEIFB»29THE 

Na*-"PL"xU-8xV-8ELSEIFB=34THEN8*-"SP"xU-8xV-llELSEIFB»39THEN0»»" 

PL"»U-ll:V-UELSEIFB-44THEN9*="SP"xU"lUV»14 

519 IFB=49THEN9*""PL"xU=14xy-14ELSEIFB»54THENa*-"SP"iU-14iW-17EL 

SEIFB-59THEN8*»"PL"xU-17iV.17ELSEIFB-64THEN8S-"SP~xU-17xV=29ELSE 

IFB"69THEN«*-"PL~lU-29>V-29ELSEIFB=74THEN«*«"SP"xU«29tV«23£LSEIF 

B-79THEN9»-"PL"xU-23iV«23ELSEIFB-B4THEN8»-"SP"xU«23xV»26 

529 IFB-B9THENe*""PL"xU-26XU«26EL9EIFB»94THEN8*»"SP"iU-26xy=29EL 
SEIFB=99THENe*-'PL"xU-29lV-29ELSEIFB-194THEN8*»"SP"xU-29lW-32ELS 
EIFB»109THEN8*= PL" XU=32 x V-32ELSEIFB»1 14THEN9*-"SP"xU-32x V=35ELS 
EIFB»119THEN8*»"PL"XU»35XW«35 

530 GOT0689 

549 IFB«9THEN8*-"SP"xu-lxv=2ELSEIFB«14THEN8t-"au"xU-HV-5ELSEIFB 

•19THENa*«"SP"»U«4xV5ELSEIFB=24THENa*-"aU"xU"4iW-8ELSEIF8-29THE 

N8*""SP"«U-7iV-8ELSEIFB»34THENa*-"8U~xU-7xV-llELSEIFB«39THENa*-" 

SP":U'19xW-llELSEIFB»44THENa§-"8U"iU=19«V-l4 

559 IFB=49THEN8*""SP"XU«13XU-14ELSEIFB-54THEN8*="8U"XU=13XV-17EL 

SEIF8"59THEN8»="SP'iU=16XW«17ELSEIFB=64THEN8i»"8U"xU-16xV=28ELSE 

IFB-69THENQi="SP"iU=19lW=29ELSEIFB=74THEN9>»"aU"xU"19lV«23ELSEIF 

B-79THENe*-"SP"xU=22iy-23ELSEIFB-84THENa*-"eU"lU-22xy«26 

569 I FB=89THEN9*-"SP" xu»25 : V-26ELSE IF8-94THEN«*«"aU" XU«25 x W=29EL 

SEIF8'99THEN8*-"SP"sU»28iW«29ELSEIFB-104THENa§»"8U"xU-28tW-32ELS 

EIFB-109THEN8t»"SP"xU-31xV.32ELSEIFB»114THENa*-"aU"tU«31«V»35ELS 

EIFB-119IHENai»"SP":U=34xy=35 

579 G0T0689 

589 IFB=9THEN0$""PL"xU-lxV-lELSEIFB-14THEN8*-"SP~tU-lxV=4ELSEIFB 

«19THENe»»"PL"»U-4«W-4ELSEIFB = 24THEN8*""SP"«U»4IU-7ELSEIFB='29THE 

Na»-"PL"»U-7iW-7ELSElFB«34THENa*="SP"«U-7lV-19ELSEIFB=39THEN8»"" 

PL"xU»19«V-19ELSEIFB"44THEN8»»"SP"xU=19«V-13 

599 IFB-49THEN8*=~PL'xU-13xW-13ELSElFB"54THEN9*-"SP"xU-13xy-16EL 

SEIFB-59THEN9*-"PL"IU-16XV-16ELSEIFB-64THEN8S«"SP"IU«16IV-19ELSE 

IFB-69THENG»="PL"xU»19tU-19ELSEIFB-74THENe*-"SP"xU"19iV»22ELSEIF 

B»79THEN8i-"PL"!U"22xV-22ELSEIFB-84THENa*="SP"iU«22JV»25 

699 IFB-89THENa*»"PL">U«25xW»25ELSEIFB=94THEN9*-"SP"xU"25xg»28EL 

SEIFB»99THENa*»"PL":U"28xV=28ELSEIFB«194THEN9*-"SP"iU»28iW«31EL8 

EIFB»189THEN9t="PL"xU=3HV-31ELSEIFB-114THENaS»"SP"xU»31iV=34ELS 

EIFB«ll9THENa*»"PL"=U"34XV-34 

610 GOT0689 

620 IFB"=9THENe*="RU"xU-ixU-3ELSEIFB»14THENa*-"ES"«U»liU=6ELSEIFB 

-19THENa*«"RU"xU-4xV-6ELSEIFB-24THENa*-"ES"«U-4iV-9ELSEIFB=29THE 

Na*-"RU"xU-7:g-9ELSEIFB-34THENat="ES"iU=7:V='12ELSEIFB-39THENa$«'' 

RU"xU-19xU«12ELSEIFB-44THEN9*»"ES"tU«19iW-13 

639 lFB-49THENa*»"RU"«U"l3xV-15ELSEIFB-54THEN8*»"ES"lU-13xV18EL 

SEIFB=59THEN84""RU"xU-16lV*18ELSEIFB=64THENe*«"ES"«U"16»W-21ELSE 

IFB-69THENG*«"RU"xU-19xW-21ELSEIFB-74THENa*»"ES"iU-19xW-24ELSEIF 

B-79THENa»«*'RU"iU«22tW-24ELSEIFB>=84THEN8*»"ES"iU"22lW-27 

649 IFB=89THEN8i-"RU"xU=25xW>27ELSEIFB=94THENa*-"ES"xU-25xy=30EL 

SEIFB«99THEN8t-"RU":U-2Bxy=30ELSEIF8=104THENa»-"ES~iU»28xV=33ELS 

EIFB-199THENa» = "RU":U = 31xy-33ELSEIFB-=114THEN0* = "ES":U=31xW»36ELS 

EIFB-119THENa*-"RU"iU=34:U«36 

659 G0T06B9 

669 IFB = 9THENa*»"Cl"xU-lxU-34IG0T0689ELSEIFB«19THEN9*""C2"!U«2x<J 

-35xGOT0689ELSEIFB«29THEN9*="C3"xU=3iW-36«GOT0689ELSEIFB-39THEN8 

t."PR"iU»9!W-9xG0T0689EL9EIFB"49THENai-"WE"xU-9XW«9lG0T0689ELSEI 

FB=59THENa*»"ME"xU=lxW»18IG0T0689 

679 IF8-69THEN8*-"MA"xU-=19sy = 36ELSEIFB-=79THEN0»«"PA"iU-9iW=9ELSE 

IFB-89THEN8*="IM"!U»95V«9ELSEIF8-99THENa*-"D3"xU"25xU»36ELSEIFB» 

189THEN91- 'D2"xU»13xW=24ELSEIFB"119THENa*="Dl"iU=lxW=l2ELSE289 

689 E-E*l«I"I*lxIFE>21THENF»2tG0T0289ELSEDD»INT(E/4*.75):IFI>4AN 
DF< >4THENDD-DD-1 XG0TO789 

690 IFF«4THENU»O<E)xW.R(E)xGOTO710ELSEG%(E)»a*x8S=""xa(E)»UiR(E) 
-WIS(E)-T 

709 IFC(DD)<S<E).S(E)-9lG010780ELSEP-P*64xX<E>-PxPRINTaP.GS<E>" 

"»IGOSUB720XC<DD)-C(DD)-S(E)XPP-649XIFE»17ORE-18ORE-19ORE"29THEN 

PRINTS(E>|i00T0759ELSEPRINTS<E>"!"|XG0T0759 

719 IFX(E>»90RS(E>-9THEN689ELSEIFE"170RE-1B0RE-190RE«29THENPRINT 
8X<E>.Gi(E>" "l«G0SUB729xPRINTS(E)sxG0T0689ELSEPRINT8X<E).G*<E)" 

"i:G0SUB729:PRINTS(E)":"i IGOTO680 

720 IFU<19THENPRlNIUSING"9a "tUrELSEPRlNTUSING"#H ~»U( 
739 IFW<19THENPRINTUSING"9N";WjELSEPRINTUSING"t»tl"|«l 
749 RETURN 

759 D-D+HPRINTSPP,K(D)»A*<D) J x IFC<D>< =9THENPR INT" 999" I ELSE IFC < 

DX10THENPRINTUSING" 00H" iC (D ) (ELSEIFC ( D ) < 109THENPRINTUSING" 9NN 

"»C<D)iELSEPRINTUSING" aMH"iC<D>I 

769 PP«PP»13:IFD<5THENPRINT" I" i XQ0TO759ELSED-9 

779 IFF=3THEN829ELSEIFF«4THENE-9lGOTO689ELSE280 

789 G0SUB979XPRINT8592."LIMITE DE APOSTAS DO JOGADOR "A*(DD)iiGO 

T0289 

799 FORU-lT015«PRINT81999,""iNEXTxPRINT829."C0MPRA DE CACIFE",,. 

" NA SUA WEZ TECLE (S/N> ." I0*«" COMPROU 199 FICHAS"iR*-" CACIFES 

NA MEM0RIA"xD-9 
899 D»D»lxPRINTA*(D)rxOOSUB280xIFUt<>X».PRINTO*iK(D>»K(D)*lxC<O) 
-C(D)*199xIFK(D)>9THENK<D*5)=K(D*5>*8xK(0)»K(D>-8sPRINT" "K(D*5 
>|RS 

819 IFO>4THENGOSUB1929xD"9«F-4iGOTO239ELSEPRINTiGOTOB00 

820 PRINT8629."APURA_A0"|XF-3:L=L*liM"9iT-9«P*"G*<L)xR-8<L)xS«R< 
L>iT»S(L»xIFL>29THEN999 

839 IFT-9THEN829ELSEIFP*-"PL"ANDR«ZANDS«Z.M-T«35*TXG0T0929ELSEIF 
P*-"SP"ANDR-ZANDS-Z*30RP*»"SP"ANDR«ZANDS-Z*10RP*="SP"ANDR=Z-1AND 
S-ZORP*- "SP " ANDR -Z-3ANDS-Z , M-T • 17* T J G0T0929 

849 IFP»-"RU"ANDR»ZANDS-Z+20RP*»"RU"ANDR-Z-1ANDS-Z»10RP*»"RU"AND 
R-Z-2AND9-Z,M=T«ll*TxG0T0920 

850 IFP*-"aU"ANDR-ZANDS-Z*40RPS»"aU"ANDR=Z-lANDS"Z*30RP*-"8U"AND 
R«Z-4ANDS»Z0RP*»"8U"ANDR=Z-3ANDS=Z*1THENM-T"8+TSG0T0929 

869 IFP*»"ES"ANDR-ZANDS-Z*50RP»="ES"ANDR«Z-lANDS-Z»40RPi«="ES"AND 
R-Z-2ANDS-Z*30RP»="ES"ANDR"Z-3ANDS-Z*20RP*-"ES"ANDR-Z-4ANDS«Z*10 
RP*-"ES"ANDR=Z-5ANDS»Z,M-T»5«TxG0T0929 

879 IFP*-"Dl"ANDR»lAN0S«12ANDZ>-lAN0Z<-12THENH»T*T*TxG0T0929ELSE 
IFPS>"D2"ANDR»13ANDS«24ANDZ>»13ANDZ<-24THENM»T*T»TXG0T0929ELSEIF 
P*-"O3"ANDR"25ANDS-36ANDZ>-25ANDZ<-36THEMM»T+T+TiGOTO920 

880 IFMi="Cl"ANOP»-"Cl".M=T»T«TxGOTO920ELSEIFM»-"C2"ANDP»="C2".M 



-T*T*TlGOTO920ELSE IFMS-"C3"ANDPt-"C3" , M=T »T+T IGOTO920 

890 IFI*="ME"ANDP*="ME".M-T+TXGOTO920ELSEIFH='MA"ANDP*-"MA".M"T 

♦TxGOTO920 

909 IFS*-"WE"ANDP* = "VE"'.M-T*TiGOTO920ELSEIFS* = "PR"ANOP*»"PR".M-T 
♦TXGOTO920 

910 1FL*="PA"ANDPS-"PA".M-T«TELSEIFL*»"IM"ANDP*-"IM",M-T*T 

920 D=0xPP«640XX-INT(L/4+.75)xpRINT8620." " I >C< X>-C < X )♦ 

MHFC(X) >900THENClX*5)»C(X»5)*C(X)-800xC(X)»800iGOTO730ELSEIFC(X 
) < 1 00ANDC ( X*5 > < 909THENC ( X ) -C < X ) *C ( X*5 ) s C < X *5 ) »9 x G0T0759ELSE I FC ( X 
> < 199ANDC ( X*5 ) >900T HENC < X ) =800 x C ( X*5 ) «C ( X*5 ) -800 x GOTO750ELSE750 

939 FORU=lTO15:PRINT8100O.""xNEXTxCLS:FORD-lTO5sH(D>-(C<D*5>*C(D 
)>-<K<D)»100)-(K<D*5)»100l iPRINTA$(D>" "H<0>" FICHAS'XNEXT 

940 PRINTxINPUT"WALOR DA FICHA EM CrS"l YxFORD-1 T05x IFH(D) (9THENS 
»-" DEWE Crf'ELSESt-" RECEBE Cr*" 

959 PRINTA*<D>" "S*l lPRINTUSING"Haat«a."iABS(H(D) ) •YxFF»FF*H(D) XN 

EXTxPRINT8749."SALD0 DA BANCA Cr *"FF»Y»- 1 XF«4 XFF»9xG0SUB 1929lD»9 

1GOTO230 

969 F0RD=ET0E*3xR=INT<E/4+.75)xC(R>-C(R)+S(D)xS(D)-9XPRINT8P." 

"»XP-P*64:NEXTID=9IPP«640:F=5IGOSUB9B0XGOTO759 
979 PRINT8576," 

"l I RETURN 
989 PRINT8576." 8UEM JOGA ? <A> <B) <C> < 

D> <E> "»>P«641 iRETURN 

999 FORO-1TO29XS(D)-9XNEXTXD=0:L=9IPRINT8619." TECLE <T>"|i 
G0T0289 

1000 PRINT8704," 



1010 PRINT8832," 

"xxF-2xGOSUB980xGOT0280 
1020 PRINT8980."Barra de espato"; 

1030 U»=lNKEY»xIFU* = i:HR*(32).CLSxRETURNF.LSE1030 

1040 DATA99-WERDE.32-WERMELH0,15-PRETO.19-VERMELH0.94-PRETO,21-V 
ERMELH0.92-PRET0.25-VERMELH0.17-PRET0.34-UERMELH0.96-PRETO,27-gE 
RMELH0.13-PRET0,36-WERMELH0. 1 1 -PRE TO. 39-WERMELH0,98-PRET0 
1959 DATA23-WERMELHO. 19-PRET0.95-WERMELH0.24-PRETO. 16-VERMELH0. 3 
3-PRETO.01-WERMELHO.29-PRETO.14-yERMELHO.31-PRETO.09-yERMELHO.22 
-PRETO.18-VERMELHO.29-PRETO.07-VERMELHO,28-PRETO.12-VERMELHO,35- 
PRETO.03-yERMELHO.26-PRETO 

1060 DATA32.VE.HA.PA,C2.15.PH.ME.IM.C3.i9.VE.MA.IM.C1.4.PR,ME.PA 
.C1.21.yE.MA.IM.C3.2.PR.ME.PA.C2.26,yE.MA,IM.C1.17.PR.ME. IM.C2.3 
4,y£.MA.PA.Cl 

1070 DATA6,PR,ME.PA,C3.27.yE,MA.IM.C3.13,PR.ME. IM. Cl . 36. VE .MA. PA 
, C3 , 1 1 . PR . ME , I M . C2 . 39 , VE . MA . P A . C3 . 8 . PR . ME . P A . C2 . 23 , VE . MA . I M , C2 . 1 
9, PR. ME. PA. Cl 

1989 DATA5.yE.Mt. IM. C2. 24 . PR . MA.PA ,C3. 16 ■ VE . ME .PA. Cl , 33.PR . MA. IM 
.C3.1,VE.ME.IM.C1.29.PR.HA.PA,C2.14.VE.ME.PA.C2.31.PR.MA.IM.C1,9 
.yE.ME.IM.C3 

1999 DATA22.PR.MA.PA.C1 . 18, yE . ME ,PA.C3, 29. PR , MA. IM. C2. 7 . VE.ME , IM 
.C1,28.PR,MA,PA.C1.12.VE.ME.PA.C3,35,PR,MA. !H. C2 . 3. VE . HE . IM.C3.2 
6, PR, MA. PA. C2 




• Em MS n? 46, no programa Missao Impossfvei, p^g. 55, a lis- 
tagem apresentou erros em algumas linhas. Na linha 86, ap6s "PA- 
RABENS", o correto e haver apenas uma vi'rgula, enquanto que a 
linha 88 ja deve comecar com PRINT. Confira abaixo como ficam 
as linhas. 

86 ?Ri:.'"C; j .RS(23) :?RINTTAE(6)"P A R A B E N S I" ,TAB( 6 (STRINGS II 
5,CHRS\ 131 ) ) iPRINT€2C8, "Seu escore e",'us dot 5 niaiorea do dia. 

88 PRISTS6S8," 

• Em MS n 9 48, na Rodada MS, programa Projeto de filtroi 
passa-faixa, pag. 75, a listagem apresentou incorrecdes. Na linha 
1970, o M deve ser substitui'do por N, ficando assim: 1970 PLOT 
37 + N,6. 

Tambem ficou faltando a ultima linha da listagem, ou seja, a li- 
nha 5010 GOTO 10. 

• Em MS n? 50, na reportagem O Mercado Editorial de Infor- 
matica, pag. 10, no quadro com os livros mais vendidos, saiu erra- 
do o endereco da Editors Campus. O endereco certo e: Rua Barao 
de Itapagipe, 55, CEP 20261, RJ. 

• Em MS n 9 50, no artigo A fun?ao UDG do TK90X, pag. 42, 
quarto parSgrafo, a sexta linha {"... se utiliza de 8 bits."), apresen- 
tou erro. A frase correta e "...se utiliza de 8 bytes." Ja na figura 
10, a linha 9010 apresentou falhas. Corrija-a para: 

9010 SAVE "garotog'CODE USR "a", 

• Em MS n9 50, no programa Maca ou Maca, pdg. 36, listagem 
1, a linha 6000 saiu com erro; no lugar de OF, deve-se usar 60. A 
linha fica assim: 

600G- 60 00 C2 00 C4 00 C3 00 

• Em MS n9 50, Curso de FORTH, pag. 60, no programa se- 
guinte ao decimo quarto paragrafo, o traco (-) depois de I deve 
ser substitui'do por um ponto (.). O programa fica assim: 

s MOSTRERETORNO S DO I . LOOP 

• Em MS n9 50, no programa Maca ou Maca, pag. 34, houve 
erro no decimo quinto paragrafo. O correto e: "A linha 1 10 coloca 
o endereco do infcio da tabela de formas (24576 em decimal, ou 
seja, 6000 em hexadecimal);". 
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Imprimir em quatro diregoes ou armazenar uma tela na memoria do 
seu micro, compativel com o ZX Spectrum, sao apenas alguns dos 
recursos que voce conseguira com o uso deste Monitor grafico. 



Monitor grafico 



.DM no Carlos R. Leitao 



Os usuarios da linha ZX Spectrum tem agora urn pro- 
grama para auxilia-los na cria9ao de telas de apre- 
senta^ao, menus e qualquer tipo de grafico que uti- 
lize apenas os caracteres, inclusive os redefinidos. 

Este Monitor Grafico e uma ferramenta que permitira o uso 
de alguns recursos grfficos do seu micro, diretamente no video, 
enquanto voce cria uma tela. Alguns dos comandos disponiveis 
sao: INK; PAPER; FLASH; BRIGHT e INVERSE, sendo que o 
comando OVER tambem foi implementado, mas apenas para 
que o efeito possa ser visto no vi'deo, pois para armazenar os 
dados referentes a esse comando nas telas criadas, seria neces- 
rfrio aumentar o tamanho das mesmas em pelo menos 704 by- 
tes e uma das caracterfsticas das telas do monitor 6" justamen- 
te economizar mem6ria. Porfm, como voce poderf ver, este 
comando nSo farf faJta. 

Voce ainda poderf encher o vi'deo com um carfter; copiar a 
tela na impressora; imprimir em quatro dire^oes; inserir e su- 
primir caracteres; fazer um SCROLL para cima e para baixo; e 
se o seu micro e" um TK90X, poderf acessar a func^o UDG 2, 
diretamente no Monitor. 

Uma das vantagens de uma tela criada pelo Monitor, alem 
dos recursos graficos prontos para serem usados, e que cada 
tela gasta apenas 1625 bytes e ja traz incluida uma rotina de 
impressao em Assembler, tendo ainda um UDG pr6prio, que 
nlo afeta o uso do UDG presente na mem6ria. As telas criadas 
por este processo poderfo ser alocadas em qualquer posi?ao 
disponivel da RAM e chamadas por RAND USR, sendo que a 
unica preocupa$io do usuario serf deixar livre na mem6ria um 
espa?o de 1625 bytes para cada tela que desejar juntar ao seu 
programa. 

Apos criar uma tela, grave-a em fita cassete usando a op^ao 
7 do menu. Para recuperar a tela gravada, use o comando 
LOAD " " CODE XXXX, onde XXXX e o endere90 de inicio 
da tela e tambe'm serf o enderefo de chamada para imprimi-la 
no video. 

OBS.: Para chamar uma tela diretamente de uma rotina em 
Assembler, o par BC deverf ser carregado com n valor XXXX 
antes de ser executado o comando CALL XXXX , portanto nio 
esqueca de carregar o par BC ou haverf problemas. 

Hi tambem a opcao de gravar as telas no formato padrfo do 
micro, com a ope, So 5 do menu, ou ainda gravar e carregar 
apenas o UDG. Com isto, voce poderf criar, em fita cassete, 
um banco com vdrios UDGs diferentes. As opcOes 1 e 2 do 
menu servem respectivamente para iniciar a criac^o de uma 
tela ou editar a tela que estiver na memoria. Cuidado ao usar a 



opfSo 1, pois se houver alguma tela na memoria, ela serf apa- 
gada. 

O Monitor Grafico na"o permite que se trabalhe com telas 
que nao tenham sido criadas por ele, pois usa um buffer pr6- 
prio de trabalho com um sistema especifico de armazenamen- 
to distribui'do da seguinte forma: os 49 bytes iniciais con tem a 
rotina de impressao que acompanha cada tela, depois vem 
1408 bytes, alternando carater e atributo, ou seja, primeiro 
byte=CHR$; segundo byte = atributos do CHR$ anterior, 
e assim sucessivamente ate totalizar as 32 colunas e 22 linhas; 
quanto aos 168 bytes restantes, sfo reservados para os carac- 
teres do UDG proprio que cada tela cont6m. 

Ale"m das rotinas em linguagem de maquina, o programa 
tem uma parte em BASIC, para facilitar o uso das rotinas pa- 
drfo de grava9ao e UDG 2. 

Para digitar o programa, use o "Monitor Assembler no 
TK90X" (publicado em MS n? 51). Inicialmente, deverf ser 
criada a linha 1 REM com 4800 bytes para receber os dados 
em hexadecimal da listagem 1 . Voce irf reparar que nlo Irf 
4800 dados nesta listagem, isto porque os bytes restantes serfo 
preenchidos pelo pr6prio programa ao ser utilizado. Digite os 
dados com aten95o e no final entre com a listagem abaixo, 
usando-a para conferir o trabalho: 



100 REM EXECUTE C0H -> RUN 100 

110 LET S«© 

120 FOR F-2359 TO 26633 STEP 2 

130 LET S>S*PEEK F-PEEK (F*l) 

140 PRINT AT 10.13|F 

130 NEXT F 

160 IF S-«19« THEN PRINT TAB 2| 
"0K> OS DADOS ESTA0 C0RRET0S."t 
STOP 

170 PRINT ' FLASH 1 I TAB 5|"HA" 
ERR0 DE DIGITACA0.".TAB 5i"C0NFI 
RA OS DADOS... ".« STOP 



Se o resultado for negativo, use o "Monitor Assembler no 
TK90X" para conferir a entrada de dados e corrija os erros. 
Apos ter certeza de que o programa foi digitado corretamente, 
de o comando direto POKE 23756,0 para proteger a linha com 
as rotinas em Assembler, e ela entao irf se transformarem linha 
e na"o poderf mais ser editada. Em seguida, elimine o "Moni- 
tor Assembler no TK90X" e as linhas de conferencia para 
entao entrar com a listagem 2. Antes de testar o programa, gra- 
ve tudo com o comando direto: SAVE "MG" LINE 7. 

OBS.: Se o seu micro nao e um TK90X, mude a linha 1 1 
para 1 1 GOTO 9. 
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COMO USARO MONITOR 

Na figura 1 , voce tem uma tabela com as teclas de controle 
do Monitor e o seu significado, sendo que algumas devem ser 
pressionadas em conjunto com CAPS SHIFT(CS) e out ras com 
SYMBOL SHIFT(SS). O cursor indicarf qua! tipo de impres- 
sa"o esrf sendo usada. As converses sao: 

C - imprime maiusculas ou minusculas junto com CS;L — 
imprime minusculas ou maiusculas junto com CS; G — impri- 
me apenas os caracteres grfficos; S - imprime apenas os sim- 
bolos grfficos; e U - imprime apenas os caracteres redefini- 
dos. 

ROTINAS DE IMPRESSAO NO VIDEO 

Se voce ja programa em linguagem de maquina ou esrf inte- 
ressado em aprender, continue a leitura pois a partir de agora 
serfo explicadas algumas das te"cnicas de impressao no video 
em Assembler. 

Quern ja" utilizava linguagem de nrfquina nos modelos Sin- 
clair (ZX-81), sabe que para imprimir no D-File basta colo- 
car o c6digo do carater a imprimir no endereco corresponden- 
te a posi9§o desejada do D-File. Nos compativeiscom o ZX 
Spectrum, a area correspondente ao D-File dos modelos ZX-81 , 
que a partir de agora sera chamada apenas de MV (Memoria de 
Video), tem 6144 posi9(5es e mais 768 bytes que correspon- 
dent a area de atributos, - ATTR, para simplificar - portanto 
a impressao em Assembler fica um pouco mais complicada. 

Em primeiro lugar, para se usar a MV 6 necessario abrir an- 
tes um canal de comunica9So com o processador de video. A 
maneira mais facil de faze-lo e" usando uma rotina da ROM. 
Veja como, no exemplo 1 : 



3E02 LD 
CD0116 CALL 
C9 RET 



A.02H |A-2 0UE E' CANAL DA MV 
1601H lABRE CANAL 2 
(RETORNA 



OBS.: O canal 2(02H) cOrresponde apenas as 22 primeiras 
linhas de video, de a 21 ; para se usar as linhas 22 e 23, que 
chamaremos de linhas de edi9§o, o canal aberto terf que ser 
0(00H) ou 1(0 1H). Voce deverf ter bastante cuidado quando 
desejar imprimir nestas duas dreas do video, pois, apesar de es-' 
tarem em seqiiencia, o uso das mesmas e bem distinto. Mais a 
frente, voce verf outras explica90es sobre as diferen9as das 
mesmas. 

Apos abrir o canal de video, podemos imprimir direto na 
MV e a maneira mais prftica ainda e usar as rotinas da ROM, 
mais especificamente o conhecido (para os ja iniciados em As- 
sembler) RST 10. Para quern nao conhece, o RST 10 e um co- 
mando de um so byte que da acesso as rotinas de impressao 
dos micros Sinclair. Veja o exemplo 2: 



3E30 


LD 


A.30H 


|A-4B 0UE E' COO I GO DO CHR* 


07 


RST 


10H 


iIHPRIHE CHR* C0NTID0 EH A 


CO 


BIT 




IRET0RNA 



Como pode ser visto, nao e" tao dificil assim, mas nao se ale- 
gre antes do tempo, pois, com o que vimos ate* agora, o maxi- 
mo que podemos conseguir e imprimir um carfter descontrola- 
damente na MV, sem saber qua! e a sua cor, fundo ou mesmo 
posi93o onde serf impresso. Para controlar estes pequenos de- 
talhes, existem os caracteres de controle, que chamaremos de 
CTRL, ao todo sao 32. Na figura 2, voce tem uma tabela com 
a indica93o das fun96es para as quais estes caracteres podem 
ser utilizados na impressa"o. 

Os codigos de 0(00H) a 3(03H) devem ser usados seguidos 
de CALL 1601H (veja exemplo 1) para abrir os canais corres- 
pondentes, sendo que o canal 3(03H) corresponde a impresso- 
ra. Ji os CTRL de 6(06H) a 23( 1 7H) - com exce93o de 7(07H); 
14(0EH) e 15(0FH) que nao devem ser usados na impressSo 
- sao todos usados seguidos de RST 10. Veja o exemplo 3: 
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Figura 1 



Figura 2 



3E16 


LD 


A.16H 


07 


RST 


10H 


3E0S 


LD 


A.05H 


07 


Ksr 


10H 


3E0A 


L D 


A.0AI 


07 


R81 


10H 


C9 


M i 





|A«22 QUE E' CTRL DE PRINT AT 

IPREPARA PARA RECEBER PARAMETROS 

lA-5 0UE E' NUHERO DA LINHA 

iPOSICIONA NA LINHA 

JA-10 0UE E ' NUHERO DA COLUNA 

iPOSICIONA NA COLUNA 

IRETORNA 



Ap6s executar esta seqiiencia, o computador estara pronto 
para imprimir na linha 5, coluna 10, o carfter que for ordena- 
do. Aten93o, isto so 6 vdlido se o canal da MV corresponde as 
linhas a 21 (exemplo 1) ja tiver sido aberto antes. 

Para estabelecer os parfmetros de cor, brilho e outros re- 
cursos de seu micro, use osCTRLde 16(10H) a 21(1 5H). Veja 
o exemplo 4: 



3E10 


LD 


A.10H 


07 


RSI 


10H 


3E07 


LD 


A.07H 


07 


KST 


10H 


C9 


RET 





lA-16 WE E'O CTRL DE INK 
IPREPARA PARA RECEBER PARAHETROS 
lA-7 «UE CORRESPONDE A COR BRANCA 
(HUDA INK PARA BRANCO 
IRETORNA 



3E12 


LD 


A.12H 


D7 


RST 


10H 


3E01 


LD 


A.01H 


07 


RST 


10H 


cv 


RET 





Para mudar o PAPER, executa-se a mesma seqiiencia, sendo 
que os c6digos de cor variam de 0(00H) ou preto, ate" 7(07H) 
que 6 a cor branca, o que corresponde a disposi9ao das cores 
no teclado. Para mudar os outros parfmetros (FLASH; BRI- 
GHT; INVERSE e OVER), usa-se antes do segundo RST 10 
apenas 1(01H) que significa ligado ou 0(00H) que significa des- 
ligado. Veja exemplo (5) com o FLASH: 



lA-18 SUE E' CTRL DE FLASH 
IPREPARA PARA RECEBER PARAMETROS 
lA-1 OUE CORRESPONDE A LIGADO 
IMUDA FLASH PARA LIOADO 
IRETORNA 



Ap6s executar o ultimo exemplo, o carfter a ser impresso 
estaria com o FLASH ligado, ou seja, ficaria piscando, alter- 
nando seu INK e PAPER. 

Os ultimos exemplos valem para todos os CTRL que podem 
ser usados na impressao, basta chamar RST 10 ap6s o acumu- 
lador ter sido carregado com o CTRL desejado e depois repe- 
tir a opera9§o tendo sido o acumulador carregado com um co- 
digo especifico da fun9§o, o qual pode ser o valor de uma cor, 
a posi9lo de uma coluna ou o correspondente a ligar e desligar 
a fun95o. A unica exce9So € o CTRL de PRINT AT que preci- 
sa de dois parametros apos ser acionado, ou seja, linha e colu- 
na, nesta ordem. Como op9§o para o PRINT AT, voce pode 
usar a rotina da ROM a partir de 8202 (200AH), sendo que an- 
tes 6 necessirio carregar o par BC com o valor da linha (C) 
e coluna (B). Veja no exemplo 6, o que acontece se usarmos 
esta rotina: 



lA-22 0UE E' CTRL OE PRINT AT 

IPREPARA PARA RECEBER PARAHETROS 

IA-VAL0R DA LINHA CONTIDO EH C 

iPOSICIONA LINHA 

lA-VALOR DA COLUNA CONTIDO EH 8 

IPOSICIONA COLUNA 

IRETORNA 



3E16 


LD 


A.16H 


07 


»S1 


10H 


79 


LD 


a.c 


D7 


RST 


;«h 


78 


LD 


A,| 


07 


RST 


10H 


C9 


RFT 
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Todos os exemplos mostrados ate* agora permanecem depois 
de usados, ate que seja executada uma rotina que os modifl- 
que, ou seja, se voce abrir um canal da MV, ele permaneceii 
aberto ate" outro canal ser ativado; como algumas rotinas do 
sistema podem desativar este canal, e* conveniente que ele seja 
aberto toda vez que se iniciar qualquer rotina de impressao. 
Quando se imprime um carater (veja exemplo 2), a posic^o do 
cursor avan$a uma coluna ou, se for a ultima coluna, volta a 
coluna e avanca uma linha; ao atingir a linha 22 sera solicita- 
do um SCROLL. 

Na area de edicSo acontece algo semelhante, mas as linhas 
s3o contadas de baixo para cima, ou seja, a linha 23 passa a 
ser a linha 0. Uma outra diferenca da area de edicSo i que para 
se imprimir com seguranca, nesta area, i necessario que ela 
esteja limpa. Se tentarmos a impressao de um carater sobre 
outro ja existente, sera executado um SCROLL no video 
todo. rortanto, use a area de edicao com muito cuidado 
para nao perder o controle da impressao. 

Para deixar mais claro o uso do CTRL, o exemplo a seguir 
mostra como se pode encher o vfdeo com um carater, que sera 
o correspondente ao A do UDG, cujo cddigo e" 144 (90H). 
Para cor de fundo (PAPER), serf colocado o verde e a cor do 
carater (INK) sera o preto, que devera ficar piscando (FLASH 
= 1), e tambem nao terd muito brilho (BRIGHT = 0), alem de 
n3o ser invertido (INVERSE =0) e n3o ter transparencia 
(OVER = 0). Aqui vale um aparte para os que ainda n5o com- 
preenderam o comando OVER: a sua finalidade e criar prio- 
ridade de impressao, um carater impresso com OVER = 
sobrepde um outro quando for impresso, ocupando todo o 
espa9o; ja um carater com OVER = 1, sera misturado com o 
carater que estiver abaixo dele, criando um novo desenho que 
corresponded a mixagem dos dois, dando ainda a ilusao de 
que o carater com OVER = 1 e transparente. Vamos entao 
ao exemplo 7: 



3EO0 
07 


L0 

RST 


A.OOH 
ItH 


3EU 
D7 

3E04 
07 


LO 
RST 
LD 
RST 


A.11H 

ieH 

A.04H 

10H 


3E12 

07 

3Eei 

07 


ID 
RST 
LD 
RST 


A.12H 

ieH 
A.eiH 

10H 


3E13 
D7 

3E0O 
07 


LO 

RST 

LD 

RSI 


A.13H 
10H 
A.OOH 
10H 


3E14 
D7 

3E00 
07 


LD 
RST 

LD 
RST 


A.14H 
10H 
A.OOH 
10H 


3E15 
07 
3E00 
07 


LO 

RST 

LO 

RST 


A.15H 
10H 
A.OOH 
10H 


3E96 


Li) 


A.90H 


D7 


RST 


It'll 



»A-0 8UE CORRESPONDE A COR PRETA 
jMUDA INK PARA PRETO 

lA-17 QUE E' CTRL DE PAPER 
IPREPARA PARA RECEBER PARAHETROS 
»A-4 OUE CORRESPONDE A COR VERDE 
jHUDA PAPER PARA VERDE 

lA-18 QUE E ' CTRL DE FLASH 
IPREPARA PARA RECE8ER PARAHETROS 
»A-l QUE CORRESPONDE A LIGADO 
IHUDA FLASH PARA LIGADO 

»A»19 QUE E' CTRL DE BRIGHT 
IPREPARA PARA RECEBER PARAHETROS 
SA-0 QUE CORRESPONDE A DESLIGADO 
;HUDA BRIGHT PARA DESLIGADO 

:A=20 QUE E' CTRL DE INVERSE 
IPREPARA PARA RECEBER PARAHETROS 
;A-0 QUE CORRESPONDE A DESLIGADO 
«HUDA INVERSE PARA DESLIGADO 

lA-21 QUE E ' CTRL DE OVFR 
IPREPARA PARA RECEBER PARAHETROS 
lA-0 QUE CORRESPONDE A DESLIGADO 
IHUDA OVER PARA DESLIGADO 

rA-144 QUE E' CODIGO DO PRIHEIRC 

|CHR« DO UDG 

iRETORNA 



3E02 

CD0116 


LD 
CALL 


A.02H 
1601H 


oioooo 

CD0A20 


LD 
CALL 


bcooh 

20OAH 


3E10 
D7 


LD 
RST 


A.10H 
10H 



»A-2 QUE E' CANAL DO HV 
>ABRE CANAL 2 

jB«0 (COLUNA) C-0 (LINHA) 
(ROTINA DA ROM QUE POSICIONA 
iPRINT AT ATRAVES DE PARAHETROS 
iDO PAR DE REGISTRADORES BC 

SA-16 QUE E' CTRL DE INK 
IPREPARA PARA RECEBER PARAHETROS 



Esta rotina sozinha n3o tern muita utilidade, afinal uma 
tela cheia de caracteres piscantes nao serve para muita coisa, 
mas se voce conseguir entender o funcionamento da mesma, 
conseguira imprimir em linguagem de maquina qualquer cara- 
ter. 

programa que acompanha este artigo e um bom exemplo 
do que pode ser feito quando se domina bem as tecnicas de 
impressao do seu micro. E claro que, para se chegar i criacao 
de um bom programa, nao basta dominar a impressao em 
Assembler, mas ja 6 um bom passo para se chegar la. 

As duvidas que ainda persistirem apos a leitura atenta artigo 
e a analise dos exemplos, ser3o respondidas com prazer pelo 
autor, mas antes procure certificar-se de que n3o 6 capaz de 
responde-las sozinho. Garanto que assim seu aprendizado sera 
muito mais proveitoso. 

Divino Carlos R. Leitao 6 formado em Desenho MecSnico pelo Senai. E 
Programador de microcomputadores M tris anos, tendo inclusive alguns 
programas comercializados pela Ciberne Software. Atualmente, trabalha 
no CPD da revista MICRO SISTEMAS. onde desenvolve jogos e aplicati- 
vos em equipamentos que utilizam o microprocessador Z-80. 
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B9 47 CD 4C 41 32 B9 47 = 


1036 


24631 


BC 


67 


EE 


43 


2 


05 


21 


CF 


= 


889 


23999 


26 


3E 


21 


67 


65 


CD 


H 


63 ■ 


862 


24295 


18 DF FE 2C 20 08 3A BA ■ 


832 


24639 


65 


Ih 


IE 


FE 


4C 


20 


n 


21 


= 


555 


24007 


21 


H.I 


6 5 


CD 


BF 


63 


I'D 


E2 = 


1208 


24303 


47 CD 4C 41 32 B A 47 18 - 


876 


24447 


DA 


65 


18 


15 


EE 


47 


20 


05 


» 


726 


24015 


63 


M 


B8 


67 


CD 


2 A 


6 3 


CD - 


995 


24311 


00 FE 2E 20 OB 3A 88 47 - 


899 


24655 


21 


E5 


65 


!ti 


OC 


EE 


53 


20 


= 


768 


24023 


E2 


6 3 


3m 


89 


67 


CD 


;a 


63 - 


1017 


24319 


CD 4C 41 32 8B 47 18 CI ■ 


967 


24443 


0!, 


21 


EF 


6 5 


18 


o 3 


21 


F8 


■ 


686 


24031 


CD 


E2 


6 3 


3 A 


liM 


67 


CD 


2A = 


1124 


24327 


FE 08 20 OF CD 92 42 CD • 


963 


24471 


65 


CD 


M 


63 


21 


EF 


19 


CD 


- 


1211 


24039 


63 


CD 


E 2 


63 


3A 


BE! 


67 


CD ■ 


1182 


24335 


91 41 CD 83 42 CD BB 42 " 


1166 


24479 


a 


63 


M 


CO 


67 


07 


M 


C2 


- 


1126 


24047 


■'•■■ 


6 3 


CD 


E2 


63 


3E 


13 


07 » 


1015 


24343 


C3 OB 5E FE OA 20 08 CD ■ 


809 


24487 


67 


21 


ra 


5 A 


7 7 


21 


10 


66 




752 



16 



MICRO SISTEMAS. Janeiro/86 



24695 


CD 


D4 


63 


CO 


2 6 


64 


C3 


87 ■ 


1237 


25575 


07 C9 3A 87 67 17 17 17 - B29 ._.__.... 


24703 


5D 


FE 


ca 


20 


21 


CD 


E9 


63 • 


1144 


25583 


C9 06 03 77 23 10 FC C9 


, ~Z_ 26455 00 20 20 27 4C 4P 41 44 - JV1 


24711 


.:A 


CC 


67 


5 4 


5D 


01 


40 


00 ■ 


591 


25S91 


3E 02 CD 01 16 06 18 C3 


\ ,y 26463 27 20 54 45 4C 41 20 45 - 466 


24719 


00 


01 




05 


ED 


9 


Of 


20 ■ 


530 


25599 


44 OE 3E 02 CO 01 16 06 - 9 


24727 


EB 


J 6 


20 


23 


77 


23 


10 


F9 ■ 


775 


25407 


02 C3 44 0E 3E 00 CD 01 


-" 26479 04 BA 02 IA B3 02 04 HA - 44/ 


24735 


CD 


D4 


67 


C3 


AE 


50 


FE 


CD ■ 


1441 


25415 


16 3E 16 D7 3E 01 D7 AF - 774 ="!' 11 " \* !* ™ \\ '' H 


24743 


20 


IE 


CD 


E9 


63 


2 A 


CE 


67 ■ 


930 


25423 


07 C9 3E OO CD 01 16 3E - 7A» 2 *«« 2# 27 « 4 ^ Ai ** V. 2 * " 4 ?5 


24751 


23 


5 4 


50 


0! 


CO 


FE 


09 


01 > 


670 


25431 


16 07 AF D7 AF D7 C9 3A 


-" 26503 55 44 47 02 OA 85 02 04 - 3/3 


24759 


00 


05 


ED 


BB 


0'> 


2 


EB 


77 • 


882 


25439 


BE 67 F5 CD 68 63 47 Fl . \ 


24767 


;:b 


36 


20 


2B 


10 


E? 


19 


D8 


■ 677 


25447 


BB 28 F7 C9 2A 20 54 41 


JJZ" 26519 B3 83 83 83 83 83 83 83 - 1048 


24775 


FE 


05 


20 


16 


BO 


92 


6 2 


3E • 


824 


25455 


42 45 4C 41 53 20 2A 10 • 


"*^ 26527 83 83 83 83 83 83 83 B3 - 1048 


24783 


o-, 


LD 


■■'. 


16 


CO 


AC 


OE 


3E 


684 


25443 


27 E8 03 64 00 OA 00 01 < 


* 26535 83 83 63 83 83 83 83 83 - 1048 


24791 


02 


CD 


01 


16 


CD 


BB 


62 


C3 


915 


25471 


00 OO 00 20 20 30 30 31 ■ 2i 


24799 


30 


5E 


3 A 


BC 


67 


EE 


4 3 


20 


• 844 


25479 


31 32 32 33 33 34 34 35 • 


24551 07 00 00 00 00 43 20 3H - 16^ 


24807 


15 


21 


4 A 


64 


CD 


Al 


62 


B7 


875 


25487 


33 36 36 37 37 38 38 39 • 


24559 00 20 00 38 00 00 58 00 « 174 


24815 


CA 


30 


5E 


23 


7E 


FE 


59 


38 


906 


25493 


39 61 41 62 42 63 43 64 ° 


24547 58 BF 5A OA 48 0A 48 88 ■ 733 


24823 


41 


2B 


2B 


7E 


19 


3C 


FE 


4C 


691 


23703 


44 65 45 66 46 67 47 68 • 


* 4 ' 24575 4D 78 00 04 5A 21 D9 47 « 884 


24831 


20 


IS 


21 


4 A 


64 


CD 


Al 


62 


• 724 


25711 


48 69 49 6A 4A 6B 4B 6C • 


SS 24583 44 40 2A 7B 5C E5 C3 3E « 890 


24839 


B7 


CA 


30 


5f 


FE 


41 


38 


2A 


944 


25719 


4C 6D 40 6E 4E 6F 4F 70 • 


jVl 24391 02 CO 01 14 3E 14 07 AF - 704 


24847 


FE 


5B 


30 


26 


7E 


18 


23 


FE 


870 


25727 


50 71 51 72 52 73 53 74 > 


5" 24599 07 AF 07 El 01 Bl 05 09 ■ 1022 


24855 


4/ 


20 


05 


21 


96 


64 


18 


11 


432 


25735 


54 75 53 76 56 77 57 78 ■ 


24407 22 78 5C 01 80 FA 09 11 » 454 
°l° 24415 00 58 01 CO 02 7E D7 23 = 459 
°°l 24423 ED AO 78 81 20 F7 El 22 - 1232 
,r, 24431 7B 5C C9 41 38 41 38 41 - 723 
'"* 24439 38 41 38 41 38 41 38 41 • 484 


24863 


FE 


5 3 


20 


05 


21 


A9 


64 


18 


700 


25743 


58 79 59 7 A 5A 7 A 00 31 • 


24871 
24879 
24887 


OH 
64 
23 


EE 
CD 
7E 


55 
AC 
32 


C2 
62 

BD 


30 
87 

67 


BE 
r.-. 

CD 


21 
30 
7D 


EC 
SE 
63 


952 

1102 

932 


25751 
25739 
25747 


8E 32 80 33 BC 34 BB 35 • 
8A 36 89 37 88 38 BF 20 • 
20 00 31 21 32 40 33 23 • 


24895 


CD 


'4 


62 


3A 


B2 


6 7 


EE 


25 


1049 


25775 


34 24 35 25 36 26 37 27 - 


344 


24903 
24911 


20 
26 


05 

20 


CD 

05 


91 
CD 


61 

AO 


18 
61 


15 
18 


FE 

OC 


783 
586 


25783 
25791 


38 28 39 29 30 5F 72 3C - 
74 3E 79 SB 73 3D 6F 3B - 


511 




770 




24919 
24927 


FE 

oa 


2' 
CD 


20 
7 4 


05 
61 


CD 
CD 


E7 

8 3 


61 
62 


18 
CD 


887 
1060 


25799 
25807 


70 22 61 7E 73 7C 64 5C - 
66 78 67 7D 68 5E 6A 20 « 


800 
802 










24935 
24943 


BB 
AF 


62 
C9 


C3 
3E 


oB 
01 


5E 

C9 


B7 
3 A 


28 
B5 


02 
67 


B10 
982 


25815 
25823 


68 28 6C 30 7A 3A 63 3F - 
76 2F 62 2A 6E 2C 60 2E » 


641 
414 
















24951 


EE 


IF 


28 


07 


3C 


32 


B5 


67 


726 


25831 


20 20 69 7F 00 61 90 62 - 


635 






ictanom 




24959 


C3 


29 


62 


3A 


B4 


67 


FE 


IS 


950 


25839 


91 63 92 64 93 65 94 66 • 


988 






Lib Id Ut? Ill «C 




24967 
24975 


Cm 
18 


49 
EB 


62 

M 


3C 

B5 


32 

67 


B4 
B7 


67 

28 


AF 
07 


941 

831 


25847 
25855 


95 67 96 68 97 69 98 6A - 
99 68 9A 6C 9B 60 9C 6E - 


1020 
1052 






^•J* 










24983 


3D 


32 


29 


67 


C3 


39 


62 


3A 


803 


25843 


90 6F 9E 70 9F 71 AO 72 - 


1084 






24991 


B4 


67 


B7 


CA 


50 


62 


3D 


32 


970 


25871 


Al 73 A2 74 A3 75 A4 20 - 


1030 




7>IF PEEK 23675*256»PEEK 2367 


24999 


04 


6 7 


3E 


IF 


1 9: 


EB 


3A 


B4 


873 


25879 


20 00 30 00 31 01 32 02 - 


182 




6-28042 THEN GOTO 9 


25007 


67 


EE 


15 


28 


19 


3C 


32 


B4 


733 


25887 


33 03 34 04 33 03 36 06 • 


228 




8 UDG 


25015 


6/ 


2 A 


CA 


67 


01 


.10 


00 


09 


524 


25895 


37 07 00 53 45 4C 45 43 • 


534 




9 BORDER 71 CLS « LET L-USR 2 


25023 


22 


CA 


67 


2A 


C4 


67 


01 


20 


■ 713 


25903 


49 4F 4E 45 20 4E 4F 74 - 


798 




3762« IF L>3 AND L<7 THEN RAND U 


25031 


00 


09 


22 


C4 


67 


C9 


AF 


32 > 


768 


25911 


4F 20 49 4E 48 20 20 28 - 


473 




SR 26585 


25039 


B4 


67 


2A 


CC 


67 


3A 


09 


67 


974 


25919 


20 30 20 61 20 37 20 29 • 


349 




10 GOTO B+L 


25047 


Or. 


oo 


4F 


00 


0V 


22 


CA 


67 


442 


25927 


00 53 65 6C 63 63 69 6F - 


708 




11 CLS I UDG 2« GOTO 9 


25055 


2A 


'6 


67 


H 


22 


C4 


67 


C9 


886 


25935 


6E 65 20 6E 6F 76 6F 20 • 


725 




12 GOSUB 20! GOTO 9 


25063 


3A 


B4 


67 


B7 


28 


19 


3D 


32 ■ 


• 700 


25943 


SO 41 50 45 52 20 2B 20 - 


480 




13 GOSUB 30: GOTO 9 


25071 


84 


67 


2 A 


CA 


67 


01 


CO 


FF 


1078 


25951 


30 20 61 20 37 20 29 00 • 


337 




14 GOSUB 40: GOTO 9 


25079 


09 


22 


CA 


6 7 


2A 


C4 


67 


01 


690 


25939 


49 4E 4B 20 50 41 50 20 - 


515 




15 CLS » PRINT UOj" Po*iclon« 


25087 


CO 


FF 


09 


22 


C4 


6' 


BO 


3E 


1084 


25947 


46 4C 53 20 42 52 47 20 = 


512 




a FITA e leclt ENTER"' GOSUB 45: 


25095 


15 


32 


04 


67 


2A 


CE 


67 


01 


706 


25975 


4F 56 52 20 49 4E 56 20 » 


548 




G0SU8 481 PRINT AT 1.6*3-<L=8): 


25103 


ca 


EE 


N 


M 


B5 


67 


Oc 


00 


804 


25983 


20 4C 49 4E 00 20 20 20 - 


355 




" 'LOAD' UDG "iCi TELA " AND L 


25111 


4F 


09 


09 


22 


CA 


67 


2 A 


CB 


478 


25991 


20 20 20 20 00 45 4E 43 - 


342 




-7>« GOSUB 47i LOAD ""CODE : GOT 


25119 


67 


11 


El 


FF 


19 


09 


22 


C4 


844 


25999 


48 45 52 20 4F 20 56 49 - 


525 




9 


25127 


67 


C9 


2 A 


CA 


6/ 


23 


23 


22 


755 


24007 


44 45 4F 20 43 4F 4D 20 - 


503 




16 GOTO 15 


25135 


LA 


67 


2 A 


B4 


67 


23 


22 


C4 


• 911 


24015 


20 3E 20 20 20 3C 2D 00 - 


308 




17 INPUT — : PRINT MOi" V«r i f 1 


25143 


6 7 


C9 


2A 


CA 


67 


2B 


2B 


22 


' 771 


26023 


28 53 29 49 4D 20 20 4F • 


457 




car, (S)im ou (N)ao ?"> POKE 236 


2S1S1 


CA 


67 


2A 


C4 


6 7 


2B 


22 


C4 


> 919 


26031 


55 20 20 28 4E 29 41 4F = 


452 




58.8 


23 159 


6 7 


C9 


2 A 


CC 


6 7 


22 


CA 


67 


992 


26039 


20 3F 00 40 4F 44 4F 20 - 


430 




18 LET K-21 PAUSE 0» LET K-2-( 


25167 


2 A 


C6 


67 


22 


E4 


67 


AF 


32 


901 


26047 


44 45 20 49 4D 30 32 45 - 


550 




INKEY*-"N")-2«(INKEY*-"S")I IF K 


25175 


B4 


67 


32 


B5 


67 


C9 


2 A 


CE 


1046 


26055 


53 53 41 4F 20 30 20 00 • 


435 




>1 THEN GOTO 18 


25183 


67 


22 


CA 


67 


2A 


C8 


67 


22 


• 821 


26063 


4D 41 49 55 53 43 S3 4C - 


411 




19 RETURN 


25191 


C4 


67 


3E 


15 


3 2 


9 4 


67 


3E 


■ 777 


26071 


41 53 00 4D 49 4E 55 53 « 


544 




20 INPUT "Nome "»("da tela" AN 


25199 


IF 


32 


P. 5 


67 


C9 


3A 


b'D 


67 


• 916 


26079 


43 55 4C 41 53 00 20 47 - 


479 




D L-4)>("do UDG" AND L-6)|" ? "i 


25207 


2 A 


r« 


67 


7 7 


23 


EB 


2A 


C4 


974 


24087 


52 41 50 48 49 43 S3 00 > 


522 




X»i IF LEN X*)10 THEN GOTO 20 


25215 


67 


ED 


M 


C9 


2 A 


Cm 


6 7 


7E 


■ 1174 


24095 


20 20 53 59 4D 42 4F 4C ■ 


534 




21 IF X»»"" THEN RETURN 


25223 


32 


CO 


67 


2 A 


C4 


67 


7E 


32 


• 842 


24103 


00 20 20 20 55 44 47 00 - 


320 




22 IF L=4 THEN SAVE XSCODE 265 


25231 


C2 


67 


C9 


CD 


BE 


6 3 


3A 


CO 


1242 


24111 


43 48 52 24 20 53 4F 42 - 


517 




85.1625 


25239 


67 


D7 


2A 


C4 


67 


3 A 


C2 


67 


' 1014 


24119 


20 4F 20 43 53 52 53 4F ■ 


539 




23 IF L-6 THEN SAVE XfCODE USR 


25247 


77 


C9 


3 A 


BE 


67 


BE 


CB 


AF 


■ 1234 


24127 


52 20 3D 20 20 20 3E 20 - 


378 




"•",168 


25255 


B6 


CB 


23 


18 


F5 


3A 


BE 


67 


1037 


24135 


00 20 3C 2D 00 20 20 41 - 


246 




24 GOSUB 17i IF K THEN RETURN 


25263 


BE 


CO 


AF 


B6 


C8 


23 


23 


18 


1041 


24143 


42 43 44 45 46 47 48 49 - 


554 




25 GOSUB 48> PRINT AT 1,12»" V 


25271 


F4 


32 


BC 


67 


3A 


BB 


67 


32 


■ 980 


24151 


4A 48 4C 4D 4E 4F 30 51 • 


420 




ERIFV "t GOTO 41 


25279 


BF 


67 


3E 


01 


32 


B8 


67 


3A 


■ 752 


26139 


52 S3 54 55 20 20 4C 49 • 


547 




30HNPUT "Noae da tela ? "iXti 


25287 


BC 


67 


32 


BD 


6 7 


3A 


DA 


67 


980 


24167 


4E 00 20 CO 90 91 92 93 • 


724 




IF LEN Xf>10 THEN GOTO 30 


2S295 


F5 


AF 


32 


BA 


67 


CD 


70 


63 


• 1188 


26175 


94 95 96 97 98 99 9A 9B - 


1212 




31 IF X»-"" THEN RETURN 


25303 


El 


32 


BA 


67 


3 A 


BF 


67 


32 


982 


26183 


9C 90 9E 9F AO Al A2 A3 - 


1274 




32 INPUT ~"l PRINT »0|" BORDER 


25311 


BB 


67 


CO 


2A 


DO 


67 


44 


4D 


■ 984 


26191 


A4 20 20 43 4F 4C 00 02 - 


452 




- a 7 S - 'SAVE'": POKE 


25319 


C3 


3D 


IE 


M 


B3 


67 


87 


CA 


1012 


26199 


22 BC BC BC BC BC 20 40 - 


843 




23658,8 


25327 


E2 


62 


21 


E8 


3 


n 


28 


00 


449 


26207 


4F 4E 49 54 4F 52 24T 20 - 


539 




33 LET K-CODE INKEY4-48I IF K- 


25335 


C3 


B5 


03 


CD 


OC 


63 


3A 


B4 


933 


26213 


47 52 41 46 49 43 4F 20 » 


539 




35 THEN GOTO 36 


25343 


67 


CD 


2A 


63 


CD 


IB 


63 


3A 


. 838 


26223 


BC 8C BC BC 8C 02 04 8A • 


844 




34 IF K<0 OR K>7 THEN GOTO 33 


25351 


B5 


67 


C3 


2A 


63 


3E 


e^ 


CD 


887 


26231 


02 IA 85 02 04 BA 02 03 - 


310 




35 BORDER K: GOTO 32 


25359 


01 


16 


3E 


16 


D7 


3E 


ss 


07 


599 


26239 


14 01 31 14 00 20 20 43 - 


221 




36 INPUT ""« SAVE X*SCREENS i 


25367 


3E 


ID 


07 


C9 


3E 


00 


CD 


01 


775 


26247 


52 49 41 52 20 4E 4F 56 « 


577 




GOTO 23 


25375 


16 


3E 


16 


D7 


3E 


01 


D7 


3E 


441 


26255 


41 20 54 45 4C 41 02 05 - 


398 




40 GOTO 20 


25383 


ID 


D7 


C9 


26 


00 


ftF 


7C 


BS 


899 


26263 


85 02 04 8A 02 IA 85 02 • 


440 




41 PRINT '" -> Posiclone a fit 


25391 


20 


07 


3E 


30 


D7 


3E 


20 


07 


473 


26271 


04 BA 02 03 14 01 32 14 ■ 


238 




a."'" tecle ENTER"i GOSUB 45l 


25399 


BO 


11 


3E 


64 


AF 


32 


BF 


67 


899 


26279 


00 20 20 45 44 49 54 41 - 


423 




GOSUB 47 


25407 


AF 


EB 


4E 


23 


46 


23 


EB 


B7 


1044 


26287 


52 20 54 45 4C 41 20 41 - 


503 




42 IF L»5 THEN GOTO 44 


25415 


ED 


42 


38 


03 


3C 


18 


E9 


09 


704 


26295 


54 55 41 4C 02 03 85 02 - 


450 




43 VERIFY ""CODE I PRINT '" 


25423 


87 


20 


07 


3A 


BE 


6 7 


B7 


28 


797 


26303 


04 8A 02 IA 85 02 04 8A > 


447 




OK. A gravacao esta boa 1"'" 


2S431 


E7 


AE 


C6 


30 


32 


BF 


67 


07 


1211 


26311 


02 03 14 01 33 14 00 20 ■ 


129 




Tecle ENTER": GOTO 43 


25439 


79 


FE 


01 


20 


DB 


3E 


20 


D7 ■ 


934 


26319 


20 41 43 49 4F 4E 41 32 • 


541 




44 VERIFY ""SCREEN* 1 PRINT "' 


25447 


c? 


CD 


OE 


02 


OE 


00 


20 


F9 ■ 


845 


26327 


20 55 44 47 20 32 02 07 • 


347 




OK. A gravacao eat a boa I"'" 


25455 


CD 


IE 


«3 


3 


F4 


s 


9f 


CD ■ 


BS1 


26335 


85 02 04 8A 02 IA 85 02 - 


440 




Tecle ENTER" 


25463 


33 


03 


32 


BE 


67 


CD 


8E > 


993 


26343 


04 8A 02 03 14 01 34 14 - 


240 




45 IF CODE INKEYS-13 THEN RETU 


23471 


63 


3A 


BB 


67 


B7 


20 


10 


3E ■ 


740 


26331 


00 20 20 27 53 41 56 45 • 


404 




RN 


25479 


10 


7 


J A 


B6 


67 


D7 


3E 


11 • 


848 


26359 


27 20 54 45 4C 41 20 45 - 


444 




46 GOTO 45 


25487 


[]■• 


3 A 


17 


67 


7 


18 


OE 


3E ■ 


874 


26367 


20 55 44 47 02 03 85 02 - 


394 




47 PRINT '" -> Liguc o GRAVADO 


25495 


10 


07 


3A 


27 


67 


7 


3E 


11 • 


849 


26375 


04 BA 02 IA 85 02 04 8A > 


447 




">"'" »e houvcr ERRO, diglte 


25503 


D7 


3A 


B6 


67 


07 


3E 


12 


07 • 


1048 


26383 


02 03 14 01 35 14 OO 20 • 


131 




«"'" GOTO 50"! RETURN 


25511 


3 A 


BO 


67 


07 


3E 


13 


D7 


3A » 


914 


26391 


20 27 S3 41 36 45 27 20 = 


445 




48 CLS « PRINT PAPER 0»AT 1,0, 


25519 


B9 


67 


7 


3E 


15 


07 


3A 


8A ■ 


1045 


26399 


53 43 52 45 45 4E 24 02 - 


484 




,» RETURN 


25527 


67 


D7 


3A 


BO 


6 7 


D> 


CO 


3E > 


1144 


26407 


06 85 02 04 8A 02 IA 85 • 


444 




50 IF CODE INKEYS-13 THEN GOTO 
30 

51 PRINT '" -> Reboblne a fita 
• "'" ajuste o VOLUHE do grava 
dor, tecle ENTER l"i GOSUB 45 
« GOSUB 471 CONT 


25535 


02 


CD 


0! 


16 


3E 


16 


D7 


3A • 


587 


26415 


02 04 BA 02 03 14 01 36 • 


224 




25543 


24 


67 


07 


3 A 


B5 


67 


07 


C9 « 


1254 


26423 


14 00 20 20 27 53 41 56 » 


357 




25551 


E5 


CD 


OE 


64 


El 


/ E 


87 


ce ■ 


1279 


264 31 


45 27 20 55 44 47 02 OA - 


376 




25559 


07 


23 


1." 


E9 


E5 


CD 


•9 


64 • 


1082 


26439 


85 02 04 BA 02 IA 85 02 • 


440 




25567 


El 


18 


F2 


3E 


,0 


07 


3E 


20 ■ 


894 


26447 


04 BA 02 03 14 01 37 14 - 


243 





MICRO SISTEMAS, Janeiro/86 



17 



Magnex lan^a M-20 





Automagao Industrial 



Propondo ao usuario que nab jogue fora nada do que ja gastou em 
hardware e em software compatibilizando tudo atraves de um novo sis- 
tema multiusuario, a Magnex lancou o M-20. O M-20 e um computador 
de 8 bits que aceita como terminal qualquer microcomputador, tanto 
de 8 quanto de 16 bits, desde que compatfveis com CP/M. O novo equi- 
pamento da Magnex tambem emula, efe pr6prio, terminais Burroughs e 
Honeywell-Bull. Multiusuario e multitarefa, o M-20 suporta ate qua- 
tro terminais e duas impressoras, tern 320 Kb de mem6riae ate 20 Mb 
em disco Winchester. Com uma producab inicial de 30 maquinas/me*s, a 
Magnex espera se consolidar.definitivamente no mercado de pequenas e 
medias empresas, conquistando um aumento substancial no seu parque 
instalado de computadores. Dependendo das necessidades de cada usua- 
rio, o preco do M-20 vai variar de 800 a 1 .500 ORTN. 



Promogao Scritta 



A Scritta Eletronica esta pro- 
movendo junto aos proprietaries 
de micros IBM-PC/XT (e compa- 
tfveis) e impressoras Grafix a dis- 
tribuicao gratuita do livro "Cone- 
xSo Grafix IBM-PC e compatf- 
veis". Se voce* esta interessado em 
receber o livro, escreva para o De- 

Inaugurado o 
Infoshopping 

No dia 5 de dezembro o Rio 
ganhou o primeiro shopping de in- 
formatica do pai's. Sab vinte e seis 
lojas destinadas a venda de equi- 
pamentos ou suprimentos, clubes 
de vfdeo, software-houses, livra- 
rias etc. 

No Rio Infoshopping est £o em- 
presas conhecidas na area como a 
Aleph Sistemas e Mdtodos, Cien- 
cia Moderna e Computacab, Com- 
puter Shopping Moore, Mikros, 
Racimec, R&T Informatica e Uni- 
te). 

O shopping conta ainda com 
dois cinemas, que serSo usados, na 
parte da manhfi, para a realizacao 
de palestras e seminarios. O Rio 
Infoshopping fica na Rua do Cate- 
te, 311, Largo do Machado (pro- 
ximo a Estacao do Metro) . 



partamento de Propaganda da em- 
presa (Alameda Amazonas, 832, 
Alphaville - Barueri - Sao Paulo, 
CEP: 06400) e mencione o mode- 
lo do seu microcomputador, o n9 
da sarie da impressora e o nome 
da publicacab que veiculou esta 
informacfo. 

Apoio ao 
software 

Os que esperavam muitas novi- 
dades se frustraram com o 69 
Enesi — Encontro Nacional das 
Empresas de Servicos de Inform^- 
tica, promovido pela Assespro no 
infcio de dezembro em Sao Paulo. 
O evento estava esvaziado e a ex- 
posicab paralela de pacotes e equi- 
pamentos tambem nab atraiu mui- 
ta gente. Na abertura do encon- 
tro, o Ministro Renato Archer, da 
Ciencia e Tecnologia, celebrou as 
novas linhas especiais de credito 
operantes, como o Proinfo, do 
BNDES, e principalmente o Pro- 
grama de Apoio ao Software, da 
Finep, que instituiu duas modali- 
dades de financiamento — com re- 
torno e com participacab no risco 
- para pequenas software- houses; 
system-houses e universidades. 



IFPS/PLUS 



Atraves de acordo firmado 
com a DSS Informatica, represen- 
tante exclusiva da Execucom Sys- 
tems Corporation no Brasil, a In- 
ter tec passou a oferecer a seusclt- 
entes o software IFPS/PLUS, atra- 



ves do seu bureau. Trata-se de um 
pacote de apoio a decisab, integra- 
do com modulos de otimizacao e 
banco de dados retacional. Infor- 
macOes pelo tel.: (01 1) 259-2055. 



Light pen para TK90X 



No final deste mfis ja estara 
disponi'vel nas lojas a light pen pa- 
ra se conectada ao micro TK90X, 
da Micro digital. Quanto ao outro 
periferico apresentado pela empre- 
sa na ultima Feira de Informatica, 
a impressora TK Printer, ainda 
nab ha previsab de chegada ao 
mercado. 

E por falar em mercado, a che- 
gada dos dois novos equipamentos 
da linha MSX nab parece ter afe- 
tado as vendas dos micros da linha 
Sinclair, fabricados pela Microdi- 
gital. Segundo o diretor de marke- 
ting da empresa, Jorge Luiz dos 
Santos, os micros da Sharp e da 
Gradiente deram uma force ainda 
maior a area de microin format ica. 

Cobra 480 

A Cobra esta anunciando diver- 
sos aperfeicoamentos para o seu 
supermicro Cobra 480. 

Estas melhorias consistem em 
aumentar o numero maximo de li- 
nhas assfncronas, acrescentar uma 
unidade de fita streamer de 21 Mb 
para back-up e adicionar uma uni- 
dade de disco Winchester de 1 0,51 
ou 67 Mb. 

Tambem sab anunciadas novas 
versoes dos sistemas operacionais 
SOD (E.00) e MUMPS (C.02), com 
programas utilitarios para forma- 
tacab e cdpia de arquivos nos no- 
vos perifericos. Estes sistemas es- 
tarao disponfveis a partir de Janei- 
ro e fevereiro. 



e pelo proprio custo destes equi- 
pamentos ele se posicionaram nu- 
ma faixa diferente da que e atingi- 
da pela Microdigital. "Alem do 
que", reforcou Jorge dos Santos, 
"nossos micros ja contam com 
enorme suporte a nfvel tecnico e 
de software". 

O diretor de marketing da Mi- 
crodigital afirmou ainda que nada 
impede que sua empresa venha a 
lancar um equipamento dessa li- 
nha no pr6ximo Natal, principal- 
mente se se levar em conta que as 
empresas que I a near am micros 
MSX no Brasil sab novas na area, 
nab tendo tradicab em informa- 
tica. 

MSX 

Informdtica 

A linha MSX conta agora com 
uma empresa especial izada. Trata- 
se da MSX Informdtica Ltda. que 
atua tanto na comercializacab des- 
ses equipamentos quanto na parte 
de suporte tecnico e software para 
os mesmos. Inaugurada no final 
do ano, dentro da MSX Informdti- 
ca passa a funcionar este ano tam- 
bem o MSX Soft Club, que conta 
com ma is de 200 programas ja dis- 
ponfveis para locacab. A MSX In- 
formatica funciona na rua Caiubi, 
n9 567, tel.: (011) 872-0730, Sab 
Paulo- Capital. 



Pianos para 86 

Ano novo, pianos de expansSo. A empresa Compumicro, que atua 
nos mercados do Rio de Janeiro e Sab Paulo, cresceu bastante ao longo 
de 85 e pretende diversificar suas atividades. Varios pro jet os tern sido 
estudados pela diretoria, em especial uma nova f ilosofia de pontos de 
venda e a entrada na area de treinamento. 

Na area de 8 bits, - que equivale a 30% do seu volume de vendas — , 
a Compumicro revende basicamente UCPs da Unitron (linha Apple); 
drives e impressoras da Elebra; monitores de vfdeo Compo e placas da 
Unitron e Logodata. 

Mas e atuando no segmento de 16 bits, como representante do gru- 
po Proceda, que a empresa tern realizado grandes negocios, comerciali- 
zando principalmente para empresas estatais os micros Nexus 1600; 
Nexus 1684 (com Winchester de 10 Mb) ; PC 2001 ; XT 2002 e PC-PAQ. 
Tambem para o mercado profissional, a Compumicro dispoe da linha de 
comunicacab (terminais e adaptadores) da Scopus. 

Para todos os produtos da Proceda, alem da venda existe a opcab do 
aluguel. Este e um contrato de 30 meses, que inclui manutencao e op- 
cab de troca. o que permite ao cliente manter a atualizacab tecnolbgica 
de seus sistemas e reorientar seus projetos. 



Estacao CAD/CAM com 1-7000 
PC XT 

Participando da cerimdnia de 
abertura do 29 Congresso Nacio- 
nal de Automacab Industrial o mi- 
nistro da CiGncia e Tecnologia, 
Renato Archer, destacou que o se- 
tor de automacao deve ter o mes- 
mo tipo de apoio que vem sendo 
dado a area de informatica. E pa- 
ra isso, segundo o ministro, deve 
haver uma polftica definida que 
permita que os impactos da im- 
plantacab da automacao no mer- 
cado de mab-de-obrasejam absor- 
vidos, e os beneffcios dessa mes- 
ma implantacab sejam distribuf- 
dos socialmente. Archer ressaltou 

IBAM: semindrio 

O IBAM vai promover nos dias 
23 e 24 de Janeiro o seminario 
"Informatica: tendencies tecnolo- 
gicas e organizacionais". Havera 
turmas das 8:30 as 12:00 e das 
13:00 as 17:00 hs. Maiores infor- 
macoes pelo tel.: (021) 266-6622. 



Sorteio TK90X 

Os vencedores da segunda 
rodada do concurso "Ganhe 
um micro TK90X", promo- 
vido pela Microdigital em 
conjunto com MICRO SIS- 
TEMAS, sab Marcelo Rober- 
to Gimenez, do Rio de Janei- 
ro, e Carlos Mello Me sou it a, 
de Porto Alegre. 



que a carteira da Finep — Finan- 
ceira de Estudos e Projetos — para 
projetos de modernizacab do par- 
que industrial do pafs aumentou 
em quatro meses de Cr$ 300 bi- 
Ihfies para Cr$ 1 trilhao de cru- 
zeiros. E lembrou ainda que ate 
junho deste ano o Ministerio da 
Ciencia e Tecnologia estara rece- 
bendo os projetos de automacao 
industrial das empresas nacionais 
interessadas em atuar nesta area. 

Na exposicab que se realizou 
paralelamente ao evento foram 
mostrados entre outros um robo 
fabricado pela Villares para solda 
a arco, sistemas de CAD/CAM da 
Compugraph e Itautec, com tec- 
nologias respect ivamente da Ma- 
tra, francesa, e da empresa none- 
am eric ana CGX e um sistema ele- 
tronico de pesagem, desenvolvido 
pela Proceda. 

Entre as propostas debatidas 
no encontro, a do ex-titular da 
SEI, Edson Dytz sugere a criacab 
de uma subsecretaria da SEI ou 
uma secretaria ligada ao Ministe- 
rio da Ci6ncia e Tecnologia, para 
se ocupar exclusivamente da ques- 
tab da automagao industrial. 



Conexao 
Bolsa 



A Clappy, empresa carioca es- 
pecializada na venda de equipa- 
mentos, software e servicos esta 
oferecendo um novo pacote de 
software: Conexao Bolsa. 

Desenvolvido pela B & C Con- 
sultores, Conexao Bolsa permite a 
qualquer usuario dos micros Apple 
TRS-80 e IBM-PC, ligar oseu equi 
pamento aos computadores da 
BVRJ, possibilitando obter Infer 
macoes sobre o mercado de acdes 

A Clappy fica na A v. Rio Bran 
co, 12 loja. Tel: (021) 253-3395. 



Cartao de 
referenda 

Foi lancado recentemente pela 
Ponto Editorial o cartab de refe- 
renda para o micro Apple II e si- 
mil ares. O cartao possui 16 pagi- 
nas e substitui o manual do pro- 
prietario, de 320 paginas, e abor- 
da os principals recursos do mi- 
crocomputador taiscomo: Integer 
Basic, Applesoft, DOS 3.3 e As- 
sembly 6502. O cartab de referen- 
da pode ser encontrado nas prin- 
cipals livrarias e custa Cr$ 40 mil, 
e pode ser pedido tambem direta- 
mente a Ponto Editorial, rua Cae- 
tes. 252 - Perdizes - CEP: 05016. 
tel. .(011) 864-3499 Sab Paulo. 

Cursos BASIC 

Em fevereiro, a Datamicro vai 
promover cursos de BASIC Basico 
e BASIC Avancado. O Basico co- 
meca dia 4, com turmas as segun- 
das, quartas e sextas, em diversos 
horarios, e o curso de BASIC 
Avancado tera infcio dia 5, com 
dias de aula a combinar. Informa- 
c6es pelo tel.: (021) 511-0395. 

Arquitron 

O arquiteto Jose Eduardo Ma- 
luf de Carvalho, colaborador de 
MICRO SISTEMAS e um dos pri- 
meiros a introduzir o uso do micro 
em sua area, esta cada vez mais li- 
gado a Informatica. Prova disso e 
que acaba de abrir uma loja para 
comercializacab de computadores. 
Mas segundo Jose Eduardo, na Ar- 
quitron, mais do que para o co- 
me>cio de micros, a ebfase e dada 
a parte de servicos, tais como de- 
senvolvimento do software para as 
mais variadas areas e a criacab de 
um clube de usuarios do TK90X. 
A Arquitron fica na Av. Faria Li- 
ma, 1.684 sala 23, Shopping Vi- 
trine Iguatemi, Sao Paulo. 



Outras empresas na trilha do MSX 



Duas empresas do mercado de Informatica estu- 
dam seriamente a possibilidade de entrar na fabnca- 
c3o de micros da linha MSX. Sao elas a Dynacom e a 
Racimec. A Dynacom avalia com calma a hipotese de 
mais um produto, visto que a empresa teve proble- 
mas com as placas do micro MX-1600 — compatfvel 
com a linha Color, da Radio Shack, e com um nome 
bastante sugestivo, para quern pretende investir no 
padrab japonSs. O Color da Dynacom estava previsto 
para chegar as lojas no m6s passado, aproveitando as 
vendas de firn de ano, mas devido aos tais problemas 
de fabricacSo, teve seu lancamento adiado para Janei- 
ro, segundo a diretoria de Marketing. Quanto ao 
MSX, poderemos ter uma surpresa, quern sabe numa 
dessas feiras de entre-safra. 

Ja na Racimec — que nSo brinca em servigo e 
ap6ia-se num confortavel parque instalado de seus 
sistemas profissionais e terminais lotericos — as pes- 
quisas estab bem adiantadas. Consta que ja exist em 
equipes de desenvolvimento e software debrucadas 
sobre diversos model os do MSX, somente A espera 
do smal verde para acionar os motores de fabricacio. 
E o sinal podera vir em breve, pois segundo o presi- 



dente SimSo Brayer, tudo depende de serem resolvi- 
dos os impasses de fabricacab na Zona Franca de Ma- 
naus, para que haja uma "competicab limpa". Recente- 
mente, a Gradiente teve problemas para o lancamen- 
to do micro Expert, visto que uma auditoria por par- 
te da SEI constatou que havia pianos de fabricacab 
do micro, contando com os incentivos da Suframa ja 
garantidos a um projeto de videogame aprovado pelo 
Governo e que, afinal, nem vai ser fabricado. Detec- 
tado o "engano", a solucab parece ser a mesma da 
Epcom, que ja fabrica em Manaus o Hot Bit, porem 
sem contar com as regalias daquela regia*o. 

O Presidente da Racimec, contudo, parece n3o es- 
tar convicto desta ser a melhor solucab, pois, disse 
ele, "pelo que conheco da burocracia e dos proces- 
ses de controle, esta situacab pode gerar indefini- 
cfies e ate facilidades para quern ja estA la". De qual- 
quer forma, embora o impasse maior esteja na certe- 
za de se conseguir preco competitivo, Brayer nao es- 
conde a empolgacab com o produto — "Nao ha du- 
vida de que o MSX e um micro profissional" — , e co- 
mo a Racimec e movida em grande parte, por seu en- 
tusiasmo, da pra apostar. 



Atendimento 
Prologica 

Os usuarios dos computadores 
pessoais da Proldgica contam ago- 
ra com um servico de reparos es- 
pecial. Trata-se do Atendimento 
R^pido Prol6gica, que garante o 
conserto quase que imediato da 
maquina, com prazo medio de 
apenas 30 minutos de espera e ga- 
rantia total por 45 dias. Alem dis- 
so os precos do novo servico sab 
fixos: CP-200, 1,8 ORTN, CP-300 
e 400, 2,8 ORTN e 4 ORTN para 
o CP-500 modelo 021. Para mea- 
dos deste ano o Atendimento R3- 
pido Prol6gica devera ser estendi- 
do a area de Sistemas e impresso- 
ras. O ARP funciona na rua Fi- 
dencio Ramos, 302, no bairro de 
VilaOlfmpia -S5o Paulo, Capital. 

Novas 
instalagoes 

A Maquis transferiu parte de 
suas dependencias para a Rua 
Inhambu, 1271, tel.: (011) 543- 
3221, em Moema, Sao Paulo. No 
antigo predio da Av. I mares ficou 
apenas a fabrica. 

No Rio, a Maquis tambem mu- 
dou de endereco. A empresa insta- 
lou seu novo show-room na Av. 
Caldgeras, n9 6B, sobrelojas, tel.: 
(021) 240-4934, Centra. 

Padroes 
brasileiros 

Com o objetivo de discutir a 
criacab de padroes brasileiros para 
o setor de Informatica, difundir 
os resultados alcancados ate o pre- 
sente, discutir a integracab desse 
esforco A importSncia da Certifi- 
cacab de Qualidade Industrial e 
colher subsi'dios para os trabalhos 
futuros, a ABNT — AssociacSo 
Brasileira de Normas Tecnicas — , 
atraves do seu CB-21, realizou de 
18 a 20 de novembro no Hotel 
Gl6ria (Rio de Janeiro), o Semina- 
rio de NonnalizacSo Tecnica e 
Qualidade Industrial em Informa- 
tica. 

Const itui'do de varios paineis 
e cursos de curta duracao. o Se- 
minario destacou a importabcia 
do setor de Informatica — que es- 
te ano faturara mais de US$ 2 bi 
Ih6es — para o pafs, enfatizou a 
necessidade de padronizar alguns 
recursos mi'nimos dos sistemas 
operacionais (chamadas de super- 
visao, bibliotecas, arquivos, etc.) 
e alguns aplicativos de uso geral. 
visando beneficiar a indiistria, o 
comercio e principalmente o usua- 
rio. Os participantes tambem afir- 
maram a necessidade de que o 
Brasil procure solucSes prdprias 
para os seus problemas e nao ape- 
nas copie programas e sistemas m 
importados. ^j 
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Mesmo sendo versatil, o sistema operacional do TRS Color nao possui 
recursos para combinar textos com graficos em alta resolugao. Porem, 
se voce utilizar as rotinas descritas neste artigo isto sera facil. 



Caracteres no Color 



.Claud io Costa. 



Uma das maiores limitacoes dos 
micros compativeis com o TRS 
Color e, sem duvida, a impossi- 
bilidade de se combinar texto 
com alta resolucao. Nesses equipamen- 
tos, o hardware para geracao de video 
seleciona alternativamente o modo de 
apresentac^ao entre texto ou graTico: no 
primeiro modo, um byte de video e tra- 
duzido como um cardter; no segundo, 
esse mesmo byte e interpretado como 
um pixel ou ponto da tela grafica (veja 
o artigo "Video no Color", MS n?48). 
£ possfvel concluir que tal limitacjio, 
ate. certo ponto, se impOe em razfo do 
sistema operacional na"o ter sido dotado, 
a principio, de rotinas capazes de tradu- 
zir as informa95es das telas graficas na 
forma de caracteres. Logo, se quisermos 
aliar texto a alta resolucSo, o que temos 
a fazer € simplesmente escrever essas ro- 
tinas. Ha vdrias maneiras de se fazer is- 
so, tanto em BASIC como em linguagem 
de maquina. 

Um metodo cldssico 6" o que utliza o 
comando DRAW. Considere uma matriz 
da letra A, como a ilustrada na figura 1. 
Portanto, se voce desejasse imprimir 
o carater da figura 1 , a instrucjio DRAW 
viria acompanhada de: U5R4D2NL4D3, 
o que pode ser visto na figura 2. Este co- 
mando significa: suba cinco pontos, 
ande quatro para a direita, dois para bai- 
xo, quatro para a esquerda, sem atuali- 
zar a posiijao de impressao e, finalmen- 
te, mais tres pontos para baixo (o fun- 
cionamento deste comando esti clara- 
mente explicado no manual). Digite o 
programa abaixo e confira o resultado 




Figura I 



Figura 2 



na tela de alta resolucao: 

10 PMODE4:COLORD,5:PCLS:SCREEN1, 

1 

VO DRAW U5R4D2NL4D3" 

30 GO I 030 

Como o argumento de DRAW pode 
ser uma string, e possivel estender este 
processo para a impressao de mensagens 
inteiras; bastadefinir as instructs DRAW 
para os caracteres e acessa-las atrave's de 
uma matriz. Este metodo implica em es- 
tabelecer parametros para todo o alfa- 
beto, trazendo porem, em contraparti- 
da, uma grande flexibilidade. Com efei- 
to, na"o precisamos nos restringir ao con- 
junto de caracteres convencionais do mi- 
cro; podemos criar letras minusculas, 
acentuatjSo da lingua portuguesa, carac- 
teres especiais etc., tudo no formato que 
desejarmos. 

Certos cuidados sao necessarios, se a 
inten^So e criar um sistema que funcio- 
ne em todos os PMODEs. Experimente, 
no exemplo anterior, trocar o PMODE 
4 da linha 10 por PMODE 0. Rode nova- 
mente o programa, voce notard que a 
perda de definic^o do desenho se deve 
ao fato do ponto, na baixa resolucao, 
ser mais alto do que largo. Para funcio- 
nar em todos os PMODEs, um sistema 



deve, portanto, prever as diferen9as exis- 
tentes entre os diversos modos graficos. 

A sub-rotina apresentada na listagem 
1 imprime caracteres maiiisculos em 
qualquer PMODE, bastando para tal 
comandar GOSUB 5. A mcnsagem (ma- 
ximo de 25 digitos) deve estar contida 
na variavel TES; PX define a coluna e 
PY a linha de inicio da impressao. Ape- 
nas o intervalo de a Z foi utilizado 
(CHRS 48 a 90. mais um espa9o). logo, 
e so subtrair 47 do codigo ASCII de 
cada um dos caracteres a serem impres- 
sos para se obter a posicao do desenho 
correspondente na matriz (linha 6). An- 
tes, porem, s5o necessarios alguns calcu- 
los com o objetivo de compatibilizar a 
posicao rclativa do tra9o nos diversos 
PMODEs. Assim, PY deve ter um valor 
par, enquanto PX deve ser fmpar; as 
compara90es logicas da linha 5 verificam 
a consistencia desses valores. O espasa- 
mento entre os caracteres (SP) e calcu- 
lado como sendo aproximadamente o 
dobro do valor da escala empregada, o 
qual pode ser referenciado por meio de 
PEEK (233) (linha 5). Algumas letras, 
como M e W, no entanto, requerem mais 
espa90 para serem representadas; este es- 
pa9o e indicado pelo parametro B, no fi- 
nal da instrucao DRAW (linha 7). Note 
que alguns caracteres foram redefinidos: 
o sinal <, por exemplo. imprime um C. 
Veja na figura 3 um quadro com os ca- 
racteres redefinidos na rotina. Qualquer 
carater fora da faixa valida sera interpre- 
tado como um espa9o. 

Para ver a rotina funcionando, rode o 
programa abaixo, pois ele imprime a 



mensagem em letras ciano sobre fundo 
cinza (COLOR 6, 5) em media resolucao 
(PMODE 3): 

H M)E3:C0L0R&.5sPCLS:SCREENl , 
1 

;.-0 TE* ~CARACTERES"«PX-73XPY-90I 
lOSUBO 
ISO GOT030 

A escala em que serao desenhados os 
caracteres pode assumir qualquer valor 
numa faixa de 4, 8, 12, 16 etc. Para 
ajustaMa, deve ser usado normalmente o 
parametro S do comando DRAW, tal 
como mostra o exemplo a seguir: 

10 PM0DE1!C0L0R5,8:PCLS:SCREEN1, 

1 

20 rE*»"CARACTERES'*«PX = 43iPY«96! 

0RAU~S8":G0SUB^ 

30 G0T030 

Note, por fim, que voce pode exibir 
numa mesma tela caracteres de diferen- 
tes formatos. Basta passar os caracteres 
de um PMODE para outro: 

io te*='-carai;teres" 

20 PMODEl:C0L0RB.t.:PCLS:SCRLENl. 

UPX-41 1PV>76:DRAU"SB":G0SUB5 

30 PMO0E3sCOL0Ri r 5«PX=7?:PY»56:0 

RAU"S«":G0f;UB5 

40 FORT=1T02000«NEXT 

50 PM00E4:SCREENl,llPX-BllPY.90t 

GOSUBn . 

60 DO I 060 

Com base no que foi visto, voce po- 
derii adaptar a rotina de acordo com 
suas necessidades. Se voce quiser usa-la 
como esta, digite o comando CLOAD 
seguido da rotina e inicie a numeracao 
de seu programa a partir de 10. Nao es- 



que9a, nesse caso, de ajustar o parame- 
tro CLEAR da linha 1 de acordo com o 
programa principal. 

MODIFICANDO FORMATO 
DA TELA 

Uma outra caracteristica que pode 
passar despercebida na primeira aproxi- 
macao, mas que e capaz de se tornar ob- 
jeto de alguns aborrecimentos no convi- 
vio com estes micros e\ certamente, a 
pequena capacidade de sua tela de tex- 
to, capaz de acomodar apenas 32 colu- 
nas por 16 linhas. Tal divisao, contudo, 
nao e gratuita: como a memoria do Co- 
lor 6 dividida em paginas de 1536 by- 
tes cada, e os 1024 bytes iniciais da pri- 
meira pagina estSo reservados para as va- 
riaveis do sistema, sobram apenas 512 
bytes para alocar a tela de texto. Como 
se ve, o arranjo de 32 colunas por 16 li- 
nhas e o que melhor se adapta a esta or- 
ganiza9ao de memoria (note que 32 x 
16 perfazem exatos 512 bytes). 











carXter 

DO MICRO 


CARATER 
DA ROTINA 


Figura 3 
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Uma solu9§o para este problema - e 
que resolveria ainda a incompatibilida- 
de de texto com alta resolu9ao - seria 
uma rotina que habilitasse a tela de alta 
resolu9ao grafica a funcionar tambem 
como tela de texto, mantendo-se o prin- 
cipio do emprego de caracteres defini- 
dos pelo programador. Isto e possfvel 
gra9as a maneira como foi projetado o 
sistema operacional desses equipamen- 
tos, e embora tal rotina precise ser escri- 
ta em linguagem de maquina, o conceito 
que envolve sua operacionalidade e bas- 
tante simples. 

Na verdade, a rotina do sistema ope- 
racional responsavel pela impressao de 
um cardter, localizada em SA282, exe- 
cuta inicialmente um JSR (Jump do 
Sub Routine, que equivale a um GOSUB 
do BASIC) para uma posi9ao da RAM - 
o endere90 359 decimal, mais precisa 
mente. Neste momento, o cardter a se 
impresso est2 contido no registrador A 
Esta posi9ao contem apenas uma instru 
9S0 de desvio (JUMP) para outro ende 
re90 da ROM, onde continua o proces 
samento; logo, para interceptar a rotina 
de impress3o, tudo o que temos a fazer 
e colocar um JUMP para a nossa rotina 
na posi9ao apropriada da RAM, salvar 
os registradores naquele ponto, execu- 
tar a rotina de impressao do carater na 
tela graTica, recuperar o conteudo dos 
registradores e comandar um JUMP para 



COMUNICAgAO ENTRE MICROS PARA 
TRANSFERENCE DE ARQUIVOS 



O TRANSFERE c a sohi(,ao para o seu problema 
de ter varios micros com formatos de diskette ou 
sistemas operaciorais incompativets. 

Com o TRANSFERE voce pode transferir 
arquivos emre dois micros atraves de uma 
ligacao por cabo. O TRANSFERE usa as 
interfaces seriais dos seus micros, podendo 
funcionar com velocidade de transmissao de ate 
9600 bauds. 

Na tabela ao lado voce encontra as caracteristicas 
mais importantes do TRANSFERE. Use-a para 
facilitar a sua drcisao de compra, comparando 
TRANSFERE com os concorrentev 

Computadores ja suportados: POLYMAX, 
EDISA, DISMAC, TELSIST, ITAUTEC, 
PROLOGICA, MICROTEC, SCOPUS, 
UNITRON. M1CROENGENHO, todos os 
compadveis com o APPLE usando placa CP/M e 
todos os compadveis com o IBM PC (consulte- 
nos se o seu computador nao esta listado, novas 
versoes estao sendo Icitas). 
PRECO: 20 ORTNs para compativeis com o 

APPLE II. 

30 ORTNs para micros CP/M 

40 ORTNs para micros MS-DOS 

(compativeis com IBM PC) 



Compare voce mesmo TRANSFERE com os concorrentes 


CARACTERISTICAS 


TRANSFERE 




Permita a transference de arquivos entre 
micros CP/M e compatfveis com IBM PC 


SIM 




Faz a transmissao usando um protocolo de 
verificapao e correcao automatica de erros 


SIM 




Transmite qualquer tipo de arquivo. como 
fontes de programas. textos, arquivos de 
dados, programas executaveis. etc. 


SIM 




Permite transmitir vinos arquivos com um 
unico comando. usando a convencao de ? e 
para especificar o grupo. 


SIM 




A transmissao pode ser feita atraves de 
ligacao direta por cabo ou atraves de linhas 
telefomcas usando modems. 


SIM 




Para transference de arquivos basta dar o 
comando em um dos micros ligados. o outro 
responde automaticamente. 


SIM 




Permite acessar qualquer drive em qualquer 
um dos micros, podendo listar diret6nos do 
micro local ou do remoto. 


SIM 




Permite emular um terminal com protocolo 
TTY para ligacao com CIRANDA0, DISQUE- 
BOLSA. ARUANDA e outros servicos. 


SIM 




Acompanha o programa um manual 
completo, que exphca detalhadamente a sua 
utilizacao 


SIM 


J 
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CARACTERES NO COLOR 



Listagem 1 



1 CLEAR200:DRAU"S4":DIMC4<43>:F0 
RJ=1T043:READC4<J>:NEXT:G0T010 

2 DATAXC*(20> ;NG3D5 r BR3U7G2 BU6E 
R 3FD2GL3GD2R5 , BU6ER3FDGNLFD2GL3H 
,BR3U7G«6,BU7NR5D3R4FD2GL3H BU3 
R4FDGL3HU3E3R,E6UL6 F XC4<4);U2EHU 

BRRE3L4HU2ER3FD2,UBU4U,UD2,XC5< 
20)-BD6BL2D2 r BU2R4BU3L4 t XCS(18); 
BU9BLL3 r BU3R4,U,U6ER3F03NL5D3,XC 

%(33) ;FD2GL4 

3 DATABR4NEL3HU5ER3F.U7R4FD5GL4 
XC5(23);D4R5,U7R5BD2BGL4 r XC%(20) 
-BD3NL2D2,U7D3R5U3D7,BRR2U7^L2NR 
2D7R2 BRNHR3EU6.U7D3R2NE3F3D.NU7 
R5 U7F3RE3D7B,U7F6DNU7 r XCS(20>;D 
5 U7R4FDGNL4,XCt(32) ; BL2F2,XC%<3 
3).L2F4 R4EU2HL3HUER4.BR3U7L3R7B 

BU7D6FR3EU6.BU7D4F3RE3U4B 
A D ATANU7E3RF3U7B r UE5UBL5DF5D,BR 

3U4NH3E3B.BU7R6G7R7 

5 PX=PX 0R1:PY=PY-<PY ANDU:SP=P 

r-p-i/ / nqq \ n2 + 2 

6 F0RJ=1T0LEN<TE*>:CH=ASC<MID*<T 
E4,J,1))-47:IFCH<D0RCH>43THENCH= 

7 DRAW"BM"+STR4(PX)+","+STRt<PY> 
^C%<CH):PX=PX + SP-2»CRIGHT5(Ct(CH 

> i)="B">: NEXT: RETURN 

B ? 'VARIAVEIS USADAS: C4 r CH r J r PX, 

PY.SP,TE5 

10 •„*»********»**********»***** 



Listagem 2 
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70 CLI • !5A«PEEK<il6) 762 : 

; 10 SREA 
,A:P0KEB,A 

Hn IF , v, iHF.NPRINTa203,"« 

I RR0 17,081 HI- 

PREPARE O BRA 

E TECI nr '' 

5 ,. . 

90 CSAVEt"-' rEXT+*,I.F,l 

95 ' 

,00 DAK. Dl ..-•<• EF, 
00 A9 f DF.A9.l ,01,68,1 

FF ,01,68, 33. 

I C CI , .■• .'.l.DF.KA.C6.04,B0 
, i.0F,B2.8D.76,B 

. D,F5,Fi .01.6B.EF 



r 8D.00 f 5B,30,8D,00,26,BF,Dl 

U0 DATA 6B,CE.00,C8,34.4O 7E,AE 
54,AB.BA.A7,AB,D4,F2,B2.96 9L 8 
0.90.DF,AC,96,8C,8B,9A,92 9E 8C 
DF,CE,C6,C7 t C9, F2, 00,34,56 81 OC 
26 0S,8D,2B,17,00.DD,96.7/, e V 1 
1 9E FA BD, A7, D3, BE, 01,52. i- 
A7 80 8C,01,5A,26,F9,96,76,27.0A 
r CC,08,04,97.8C,D7,8E,BD,A9 

120 DATA 56 ,3S T S6,7E.8C,F1, 34,16 

BD 95,42 r 9E,BA,9F.FE,35,96,7D,F 
F 22 2A 43, 81, 9E, 27, 10, 81, 3B. 26, 
08 34, 56, 4F, 17, 00, 9B, 35, 56, 81 9/ 

26 02 B0,DA,B1,40,26,29,8C,AB,7 
5 26 24,3i,16 r BD D J , E-1 , 10 . 83 ,02, 
FF 10 22, 3/, 5r. IF, 01, BC, 00, 20, 25 
,08,36.88,E0,C3,00,E0.20,F3 

130 DATA D3,BA,DD,FE,35,16,e,'.,?0 
7E AA,1A,0D,6F, 26, 1/^4.56.81,0 

8 26 14,4F,80,56,DC,FE,5A,2A,03, 

83 01 EO DO, FE, 80, 46, 35,06, 

73 B\ 00,26,O9,AF,8O,3E,0C,FE,4 

IO 14, Bl ,20,25,EA,B1 ,7A,22, 

E6, 80, 2C,0C,FE,5C, CI, 20. 25,03,03 

,rjO,EfJ,DD. I ,10,93,87,25,01 

lS DATA 0A.FE,9E,BA P EC,89, 01.00 

ED 81 9C,FE.26,F6.9F,BA,Bi' 
{ 96 i C / BA,20,BB,B6,60,» 
C6,07,3D,D3,FC,lF,0i,DE,FE,86,07 

E6 BQ L7.C4.J3.L 

8,20.-. »9,F1 . ir . FF ' FF ' r ^' 

FF it ,F7,F7,FF,F7,EU,LU 

I ,FF.FF,FF,EB.EB,C9.Fr 

! 5 DATA C9.EB, B.I ',1 ■' ' 

> ,FF 
FF FF I F,DF,0F,BF.EF.F7 

. I 

FF I 7 . E7 , 1 ■'"''" 

F.FI .E7.E7.F0 

■■ ; 

,0.1 I.FB.I ,f-B,Cl, 

I 

F 

D.F0.F3.FF.1 .1 'J I I 

; DATA F/,FF.E/,t 
I FB F7,EF,DF,EF,F7,I 
! FF ci F,FF,EF,F7,rB,FD.FB,F7. 

EF.E7.I D0 -"/ 

ED. 05 .D0.C1.DD.D 

D C3.CD,ED.E3,ED,ED,C3,E3,DD,DI 
01 DF,DD,I ,E0,l D,ED,ED,C3 

Dl ,C3,DF,DF , CI, CI, 01 

180 DATA DF,C3.0F,DF,DF,E1.DF,DF 

D9 DL) DD E1,DD,DD,DD.C1,..-D,DD,L» 

.1 /, F7.l3,rD, FD.TD, 

1. 1)0, [Mi, 07, CI .1)7. 00, DD 

Dl l)F,DF,DI ,C1.DI),C9,D5,D 

5 DD Df'),DD,DD,CD,D5.I;9,DD.I 

I.D9.C3 
,DF,DF,DF.l 3,DD,DD,DD,I i.DB 

llo DATA E5.C3.DD,DD,C3,D7.DB.DD 

E3 DD EF,F7,FB,DD,E3,C1,F7,F7,F 

DD r DD,l>D,DD.DD.DD,b3, 

DD DD.DD.EB,EB,F/,F/.DD,DD,DD,D5 

D|..l)D,DD.EB,F7,EB,DD.0D,D 

D DD EB,F7,F7,F7,F7,C1,FD,FB,F7, 

EF OF C1,C7,DI ,01 .DF,DF,0F,C7,E/ 

,DB.DB.E7,Fi ,i . / . I I .E3.FB.FB 

200 DATA FB,FB,FB,E3,F7,E3,D5,F7 

F7 F/ F7. FF,F7,FB, 81, FB.F7, 1 F.F 

F F F ik FF,FF r FF,Cl r FF f FF r C7,FB, 



C3 BB t-,.^,DF,D3.DD.DD,DD.C3.FF 

,,•,,'.,;. OK. DD.E3.FD.KD El DO D 

, I ,E3,DD,C1.DF.E1.FJ. 

I ' EF,EF,EF.FF,FD,E3.0D r E3 

i ,DF r D3,DD,0D,DD,0D 

,,TA F7.FF, '' F7 ' E l'/l 

Fl FB.IB.FB.l. .0F.DB.D7 l- 

' DB D '•' ''■' l ' FI • 

FF H9.B6,"B6,B6,Ht.rF.FF.03.DD 00 

D6,DD,FF,FF,E3,0D.DO,DD,E3,FF D 

3 ID DD.C3.DF. i,D9,DD,El, 

jFF.F! 
iF,E3,FD,E3,EI ,1 I , 

I .DO.DO.00 

DD I ■ ' ' 

F.BE.B6.I 

..oi. i i .1 D.E I.I i ,FI 



o endereco originalmente apontado por 
aquela posicao da RAM. Evidentemente, 
o programa nSo se resume apenas nisso; 
uma s^rie de outras func6es precisam ser 
implementadas, tais como: impressao do 
cursor, delete, backspace, execucao do 
SCROLL automatico quando a tela es- 

tiver cheia etc. 

£ bom saber, entretanto, que 6 possi- 
vel escrever urn programa que execute 
todas essas funcoes usando menos de 
300 bytes. maior consumo de memo- 
ria na realidade, esta relacionado com a 
tabela de que tal programa necessita 
para desenhar os caracteres. Nao e possi- 
vel a exemplo do que fazem os usuanos 
doZX81 , ler a tabela de defini5ao de ca- 
racteres do micro, porque essa tabela 
nSo esta localizada na ROM do sistema 
operacional e sim na ROM do micropro- 
cessador de vi'deo, o VDG. 

Como a definicao do formato dos ca- 
racteres fica a criterio do programador, 
nao existem, a rigor, restneoes quanto 
ao numero de Unhas ou colunas que po- 
dem ser utiUzadas pelo novo sistema. Al- 
euns criterios, todavia, devem ser segvu- 
dos e urn deles diz respeito a legibilida- 
de dos caracteres. Isto pode parecer 6b- 
vio, mas muitos programas comerciais 
desenvolvidos com o objetivo de ampliar 
a capacidade da tela de texto do Color 
Computer pecam nesse aspecto . Enquan- 
to tecnicamente nao ha problema em 
operar com 64 caracteres por hnha, por 
exemplo, na pratica, o diametro dos ca- 
racteres nSo passaria de tres ou quatro 
pixels, considerando-se que o limite : ho- 
rizontal da tela e de 256 pontos (256/ 
64 = 4). Os caracteres normais do micro 
tern uma largura de oito pixels, por 
onde se percebe que a imagem, num te- 
levisor comum, seria no minimo sofn- 

vel. 

programa apresentado na listagem 
2 cria uma tela de texto de 32 colunas 
por 24 Unhas, ou 768 posicoes. Este tor- 
mato e mais ou menos padrao para equi- 



pamentos deste porte, e foi adotado em 
funcao da maioria das dificuldades de 
manipula9ao da tela de texto estarem re- 
lacionadas com o numero de Unhas dis- 
poni'veis. Este formato permite ainda 
que seja mantido o desenho original dos 
caracteres do micro. \k que apenas o es- 
pacamento entre as Unhas e modificado. 
programa imprime letras maiusculas e 
minusculas em video normal ou inverso, 
alem de implementar opcionalmente no- 
vas funcoes, como repeticSo automatica 
de teclas e feedback auditivo (beep). 

COMO USAR O PROGRAMA 

Digite cuidadosamente a listagem 2 e 
grave-a em fita. Em seguida, de RUN:; 
n2o havendo erro, a tela permanecera 
cor de laranja durante, aproximadamen- 
te, 15 segundos. Prepare o gravador. de 
ENTER e grave a versao final do progra- 
ma. Para carregar e executar, digite a se- 
guinte seqiiencia em forma de comando 
direto: 

CLEAR 2000:CLOADM£XEC 

proprio programa se encarrega de 
reservar espa^o no lopo da RAM. Ape- 
nas 262 bytes, mais 637 bytes de tabe- 
la sao usados; as rot in as de inicializacao 



sao apagadas a fim de economizar me- 
moria. Os comandos CLS e PRINT e a 
tecla CLEAR funcionam normalmente, 
porem, a rotina nao imprime caracteres 
graficos. Para manter a compatibiUdade 
com programas que utiUzam esse recur- 
so, e possi'vel reverter a tela de texto 
normal digitando-se SCREEN 0. £ pos- 
si'vel ainda fixar a tela de texto original 
na cor de laranja; experimente coman- 
dar SCREEN 0.1. Para retornar a alta 
resolucao, digite SCREEN 1. 

A instrucao COLOR, alem de definir 
a cor que sera usada por CLS e pela ro- 
tina de SCROLL, estabelece tambem a 
cor em que serao impressos os caracte- 
res. Dessa forma, SCREEN 1,0: COLOR 
0,1: CLS imprime caracteres em preto 
sobre fundo verde, enquanto SCREEN 
1,0: COLOR 1.0: CLS imprime caracte- 
res em verde sobre fundo preto (as ins- 
trucSes SCREEN e CLS, obviamente, 
nao sSo obrigatorias). Ja as rotinas de 
beep e auto-repeat podem ser ativadas 
da seguinte forma: 

POKE 118,1 -ativabeep 
POKE 1 18,0 - desativa beep 
POKE 119,1 -ativa repeat 
POKE 1 19,0 - desativa repeat 

valor armazenado nos enderecos 
250 e 251 e assumido como o intervalo 



de tempo que uma tecla aguarda ao ser 
pressionada, antes de ser repetida. Este 
delay e ajustado inicialmente em 6500, 
mas pode ser modificado pokeando-se 
qualquer outro valor nestes enderecos. 

Da mesma maneira que SCREEN, e 
possivel modificar tamtam o PMODE 
em uso. Note, contudo, que nao e se- 
guro trocar o PMODE quando a impres- 
sao estiver situada na ultima Unha da 
tela, pois a rotina de SCROLL perde os 
valores de referenda e pode ocorrer per- 
da de controle do cursor. Quanto a ins- 
trucao RESET, ela nao elimina o progra- 
ma da memoria mas faz o computador 
retornar a tela de texto normal. Para 
voltar a tela de alta resolucao, digite 
SCREEN I. Urn RESET geral do siste- 
ma e obtido por POKE 113,0: EXEC 
40999. 

Embora seja curto, este programa 
executa varias operacdes, e uma analise 
dos procedimentos de programacao en- 
volvidos fica para outras edicSes de MI- 
CRO SISTEMAS, Por ora, vale constatar 
que com criatividade e um pouco de tec- 
nica, nao ha limitacao que nao possa ser 
superada, as vezes ate com vantagens. . 



,<■', 



Cl&udio Costa 6 desenhista free-lancer e tem 
como hobby a programacao de microcompu- 
t ado res. 



CONTABILIDADE ON-LINE PARA 
MICROCOMPUTADORES 



A Contabilidade INTELSOFT t- a iinica quo realmenie 
funciona cm modo on-line. A qualquer momento voce 
pode fazer consultas no video para obter saldos de 
qualquer coma e lancamemos c-m formato de razao. 

A Contabilidade INTELSOFT func iona tanto em 
mil ros de 8 bits, com sistema operacional CP/M, como 
em micros de 16 bits, compativcis com <> IBM PC. 
Todas as versoes sao rum ionalmente idemicas 
podendo os mesmos arquivos scrern usados por 
qualquer versao. Isso significa que ao mudar de 
computador voce continua trabalhando da mesma 
maneira e aproveita integralmente o irabalho ja feito. 

Na tabela ao lado voce enconrra .is caracteristicas in. us 
importances da Contabilidade INTELSOFT. Use-a 

para laciliiar a sua decisao ile ( ompra. comparando-a 
com as com orrentes. 

PRECO: 150 ORTNs para micros CP/M 

200 ORTNs para micros MS-DOS 
(compativcis corn IBM PC) 

■Caso voce queira experimentar o sistema antes de 
compra-lo, a INTELSOFT fornece um pacote de 
demonstracao por apenas 15 ORTNs. o pacote de 

demonstracao e uma versao completa ilo sistema, sem 

nenhuma limitacao, acompanhada do manual. O valoi 

do pacote de demonstracao pode ser aplicado 
integralmente, em ORTNs. na i ompra do sistema, em 

um prazo maximo de 60 dias. 



f compare voce mesmo e nossa contabilidade com os concorrentes ^ 


CARACTERISTICAS 


INTELSOFT 




Totalmente controlado por menus a 
realmente on-line. 


SIM 




Numero maximo de contas 
Numero maximo de lancamentos 
Maximo de algansmos por valor 
Maximo de graus no piano 


65535 

65535 

15 

8 




C6digo de conta flexivel e definido pelo 
usuario com numero vanavel de dfgitos por 
grau. 


SIM 





Lancamentos de partida simples ou dobrada 


SIM 




Hist6ricos livres e padronizados 


SIM 




Permite trabalhar com ou sem centavos 


SIM 




Permite consolidar os dados de diversas 
empresas ou filiais 


SIM 




Emite relatonos especiais para corretoras e 
distribuidoras de acordo com os modelos do 
Banco Central 


SIM 




Permite que os dados do sistema sejam 
convertidos para serem usados por pacotes 
como o dBASE II ou III. LOTUS 1 -2-3. 
VISICALC ou por programas escritos em 
qualquer linguagem. 

V 


SIM 


J 
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Voce possui um TK90X e quer desenvolver o seu proprio adventure? 
Se a resposta for sim, este editor podera auxilia-lo nesta missao. 



Editor de Adventures 



.Paolo Fabrizio Pugno 



Antes de mais nada, vamos bo- 
tar os pingos nos devidos iis: 
os programas "Editor" e "Ad- 
venture" foram elaborados e 
adaptados para a linha ZX Spectrum a 
parti r de uma id6ia semelhante pub lie a- 
da na revista italiana "Microcomputer", 
para a linha Apple. 

O assunto e adventure, este fascinan- 
te tipo de jogo que poe a dura prova 
nosso raciocinio, estrategia, paciencia, e, 
is vezes, ate" mesmo sorte. Joga-lo e uma 
coisa, elabora-lo e outra totalmente dife- 
rente, onde devemos levar em considera- 
cfo todas as possiveis situacOes que po- 
derSo ser enfrentadas pelo programa. 
Em resumo, nao e nada facii, embora 
nSo seja impossivel. E tern mais, para 
cada adventure que escrevermos, tere- 
mos que bolar um programa gerenciador 
especifico, que manipule os dados ne- 
cessarios. Isto faz com que horas e mais 
horas sejam perdidas na depuracao de 
um maldito programa. As vezes, so de 
pensar em enfrentar tais dificuldades, 
desistimos logo de saida. Mas, que tal 
um programa universal, isto e, que sir- 
va para jogar todos os adventures que 
escrevermos? Tudo o que temos a fazer 
e "ensinar-lhe" as regras do jogo. Porem, 
6 necessario que os dados Lhe sejam for- 
necidos de uma maneira padronizada, e 
6 aqui que entra em cena o "Editor". 
Na realidade, s5o dois programas: 
com o "Editor" ensinamos as regras do 
jogo a maquina, que vai organiza-las de 
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uma forma que o "Adventure" possa 
manipula-las. Os dados slo salvos em fi- 
ta, atraves da grava^So de matrizes nu- 
m£ricas e alfanum^ricas, que serao pos- 
teriormente carregadas pelo "Adventu- 
re". Desta forma, podemos inventar o 
adventure que quisermos, sem nos preo- 
cuparmos com o programa gerenciador. 
Como jogar um adventure feito por voce* 
mesmo perde logo a graca, a sugestSo 6 
realizar trocas entre amigos que pos- 
suam um ZX Spectrum ou TK90X; es- 
sa troca consistiria nas matrizes salvas 
em fita pelo "Editor". 

EDITOR 

Antes de rodar o "Editor", e obriga- 
torio anotar tudo o que for necessario; 
fazer um mapa; dar numeros aos locais 
(commando por 1) e aos objetos; anotar 
os verbos e seus complementos; enfim, 
tudo o que depois sera pedido pelo pro- 
grama. 

Dado o RUN, o "Editor" ira pedir o 
nome do jogo, o qual n9o devera ter 
mais de dez caracteres, pois sera utiliza- 
do como nome de uma matriz na hora 
de gravar os dados em fita. programa 
entSo perguntara se o adventure 6 por 
pontos. Teclando S sera pedido o esco- 
re a ser atingido para que o jogador al- 
cance a vitoria. Logo a seguir, devemos 
introduzir o numero total de locais de 
jogo, apos o que sera pedida a descric9o 



de cada local. Essa descricSo n3o deve 
ultrapassar ties linhas (96 caracteres); o 
que, no entanto, pode ser alterado na li- 
nha 60, mas cuidado para nSo desperdi- 
far mem6ria. Apos introduzirmos cada 
descricao, devemos indicar que local e 
atingido quando nos movimentamos nas 
seis directs possiveis (Norte, Sul, Les- 
te, Oeste, Suba e Des$a). Introduzindo o 
zero para uma direc3o qualquer, iremos 
provocar o aparecimento da mensagem 
"nao posso ir nessa direcao", quando a 
mesma for executada nesse local; intro- 
duzindo o numero do proprio local, nao 
havera deslocamento. Note-se que nSo 6 
obrigat6rio nos locomovermos para lo- 
cais vizinhos (no mapa). Alias, quanto 
mais complicado for o mapa, mais inte- 
ressante o adventure se tornara. 

Na segunda parte do programa, e pe- 
dido o numero de objetos existentes no 
jogo e, depois, o nome de cada um (sem 
utilizar artigo) e sua localizacao inicial. 
Aqui, ha um truque: o local zero nSo 
existe no jogo, e serve para colocarmos 
temporariamente objetos que devem de- 
saparecer ou para guardarmos outros 
que irSo surgir posteriormente. Portan- 
to, se uma chave so aparecer quando 
quebrarmos um vaso (por exemplo), seu 
local inicial sera o zero e quando a ac3o 
"quebre o vaso" for executada, seu ve- 
tor posicfo sera igual a posiclo do joga- 
dor. Nao ha limites de objetos por local. 
O nome do objeto deve ter, no maximo, 
14 caracteres. 
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Agora vem a parte mais importante, 
os verbos: Pegue; Apanhe; Solte e Lar- 
gue, para a manipulacao de objetos (al- 
guns verbos ja estSo programados no ad- 
venture por serem os mais utilizados, 
portanto, nSo 6 necessario defini-los). 

Alem dos verbos, podemos utilizar os 
•eguintes comandos: Inventaro (I), que 
mostra quais objetos estamos carregan- 
do; Pontos, informa sobre o escore; e 
Desisto, faz voce recomefar o jogo ou 
termina-lo. E, 6 claro, Norte (N), Sul 
(S), Leste (L), Oeste (0), Suba e Desca, 
para os movimentos. 

Para definir um verbo (e, portanto, 
uma acao), 6 necessario que tenhamos 
uma sene de informacoes. Suponha que 
a descricSo de um determinado local nos 
diz que ha uma porta fechada ali. Esta- 
belecemos que essa porta so pode ser 
aberta com uma chave, que deve estar 
com o jogador, e que ao abri-la, perde- 
mos a chave e somos transportados para 
outro local qualquer. A acSo sera "abra 
a porta", e ela so pode ser executada 
nesse local onde ha a porta e que, alem 
disso, ao executa-la ganhamos alguns 
pontos. 

Como codificar este exemplo? O mi- 
cro vai perguntar: 

1) Imperativo do verbo: 
Abra. 

2) Complemento: 

Porta (sem utilizar artigo). 

3) Resposta do micro: 

"Ok. Puxa que lugar estranho!" (se qui- 
sermos que a resposta seja somente 
"Ok.", basta teclarmos ENTER). 

4) Para que local sou transportado? 
(Aqui devera ser indicado o numero do 
local de destino, sendo que indicara a 
permanSncia no local). 

5) Deslocamento de objetos: 

Nesta pergunta, ao introduzirmos um 
numero inteiro positivo, indicamos que 
o objeto que tern esse numero irtf apare- 
cer no local. Um numero inteiro negati- 
vo indica que o objeto que tern esse nu- 
mero (em modulo) ira" desaparecer, ou 
melhor, sua posicSo sera" a sala zero, de 
que falamos ha pouco. No nosso caso, 
se a chave for o objeto numero 3, tecla- 
remos: -3. Se o numero indicado for ze- 
ro, nao havera deslocamento de objetos. 

6) Variac^o de escore (s6 se o jogo for 
por pontos): 

Se o adventure for por pontos, introdu- 
ziremos a variacao no escore do jogador 
(positiva, negativa e nula) quando for 
executada est a acao. 

7) Onde executar o comando? 
Introduzindo um numero inteiro posi- 
tivo, indicamos que esta 39 So so pode 
ser executada no local que tenha este 
numero. Um numero inteiro negativo in- 
dica que esta a9a*o s6 nao pode ser exe- 
cutada no local que tenha este numero 
(em modulo). Zero indica que a acSo 
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pode ser executada em qualquer lugar. 

8) Objeto necessario: 

Aqui, indicamos o numero do objeto ne- 
cessario para a execu$So desta a9a"o. O 
objeto deve estar em poder do jogador 
para que esta a^Io seja executada. Zero 
indica que nao 6 necessario objeto al- 
gum. No nosso caso, teclaremos 3 (o 
numero da chave). 

9) Mais de uma execuc^o? 

Se a acSo puder ser executada varias ve- 
zes, teclaremos S, caso contrario, tecla- 
remos N. Se teclarmos N, o micro so- 
mente executara esta a^So uma vez, re- 
cusando-se a repeti-la. Por exemplo, nao 
podemos quebrar o mesmo vaso duas ve- 
zes. 

Note que se voce" quiser incluir o ver- 
bo "examine", devera programd-lo para 
cada objeto que puder ser examinado. O 
programa permite que tenhamos diver- 
sos imperatrvos iguais, desde que os 
complementos sejam diferentes; assim 
como permite complementos iguais, se 
os imperatrvos forem diferentes. EntSo, 
podemos ter um mesmo adventure: abra 
porta, abra janela, abra garrafa, quebre 
garrafa, tampe garrafa, examine chave, 
examine vaso, examine garrafa etc., des- 
de cfie fornecamos as informa95es ade- 
quadas para cada caso. 

Observacdes importantes: o local -16 
que indica que jogador morreu ou 
foi eliminado do jogo. Portanto, se ao 
executar alguma a9§o o jogador levar a 
pior, devendo ser eliminado (por exem- 
plo: salte despenhadeiro), basta trans- 
porta-lo para o local -1. Analogamente, 
o local -2 6 o da vitoria. Quando o ad- 
venture for resolvido, basta transportar 
o jogador para o local -2, que automatt- 
camente o programa desvia para uma ro- 
tina de felicita^des. A passagem para es- 
tes locais pode ser feita normaJmente, 
seja atravgs de conseqiiencia de uma 
3990 (ou a^Ses) como por deslocamento 
voluntirio (N, S, L,0, Suba ou Des9a). 

Alem disso, quando um objeto esta 
na posi95o -1 significa que esti em po- 
der do jogador, o qual podera carregar 
ate" cinco objetos. As posi9oes dos obje- 
tos e do jogador nSo interferem entre si, 
pois sao guardadas em variiveis distin- 
tas. 

Por fim, sera perguntado o local ini- 
cial de jogo, e, entifo, serSo gravadas em 
fita as 14 matrizes que con 1 6m os dados 
introduzidos. Devido as caracteristicas 
do micro, 6 necessario que apertemos 
uma tecla qualquer antes do SAVE, por- 
tanto, cuidado para n9o se distrair. Se o 
VERIFY acusar erros, rebobine a fita e 
d€ um GO TO 400. 

Quanto. a digjta99o, esta nSo apresen- 
ta maiores problemas; as escritas em IN- 
VERSE s3o obtidas teclando-se INVER- 
SE VIDEO, antes do texto, e TRUE VI- 
DEO, depois. Cuidado maximo nas li- 



EXECUTIVO 





CP500/M,® 
uma grande 

decisao 

para homens 

que tomam 

decisoes. 

O CP 500/M 80 agora tambem 
e compativel com o CP/M, o Sistema 

mais difundido no mundo. lsso 
significa que, somando o tradicional 

DOS 500 com o CP/M, voce 

passa a dispor da maior biblioteca de 

programas aplicativos do 

mercado. E voce podera tirar vantagens 

de programas como Calc Star*. 

dBase II*. Word Star* e muitos outros, 

que vio agilizar tanto 

sua vida quanto a de sua empresa. 

Para voce, executivo, 

o CP 500/M 80 e uma poderosa 

ferramenta de auxilio a 

decisoes gerenciais, com programas 

especificos em sua area de 

atuac3o, como analise de fluxo de caixa, 

controles de compras/custos/ 

estoques e administracao financeira. 

Como resultado final, sua 

empresa tera grandes ganhos de 

produtividade e eficiencia. 

CP 500/M 80 , um grande passo na 

informaiica com a Qualidade CP 

e a Tecnologia Prologica. 



Caracteristicas 


Sistemas Opcracionais Inclusos 


Mem6na RAM 

Mem,.: 1.1 ROM 

Compatibilidadc 
Video 


SO-08 
64 Kbytes 
2 Kbytes 
CP/M* 
80 colunas 
por 24 linhas 


DOSSOO 
48 Kbyies 
16 Kbytes 
TRS-DOS 
64ou32 
colunas por 
16 linhas 


Video 12" f6sforo verde com controle de 

intensidade 

Teclado profissional capacitivo com numerico 

reduzido 

Interface para impressora paralela 

Opera com 1 ou 2 drives de face simples ou dupla 

Acesso a toda a Rede Nacional de Telematica, 

atraves de Interface serial padrao RS-232 C 

(opcional) 
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TECNOLOGW 
PROLOGICA 



EDITOR DE ADVENTURES 



nhas 410 e 430; elas devem ser iguais, 
exceto pela substitute) dos SAVE pe- 
los VERIFY. Uma dica e escrever a li- 
nha 410, edita-la e substituir o numero 
de linha e os comandos SAVE por 
VERIFY. 

ADVENTURE 

Ao rodar o segundo programa, ele 
ira simplesmente perguntar o nome do 
adventure que desejamos carregar, e, 
logo ap6s o termino do carregamento, 
entrar automaticamente em execu?5o. 

Algumas recomendafSes: para movi- 
mentar-se, tecle "va para o norte" ou 
simplesmente N. Ao ex ecu tar uma a9So, 
voce* pode usar o artigo que quiser, 
tendo em mente que o programa reco 
nhece somente a primeira e a ultima 
palavra da frase introduzida. Podemos 
entao digitar: pegue martelo, pegue o 
martelo, pegue esse martelo ou pegue 
essa droga de martelo; que o efeito 
sera o mesmo em todos os casos. Esse e 
o motivo pelo qual o Editor na"o aceita 
os artigos. 

OUTROS MACETES 

Se h£ uma sala escura que so revela 
seu conteudo se acendermos uma vela 



(por exemplo), entao, 6 conveniente 
termos duas salas; sendo uma com a 

descricao da escuridSo, sem outras sai- 
das ou objetos; e outra, que 6 o seu 

equivalente, caso tenhamos luz. Defi- 
nimos assim uma acao, "acenda vela", 
de tal forma que so podera ser executa- 

da na sala escura e se tivermos a vela, 
e que alem disso, nos transporte para a 
outra sala, com a outra descri^So. E 



urn verbo, "apague vela", que fac,a o 
contrario. 

Experimentalmente, conseguiu-se di- 
mensionar matrizes referentes a 100 sa- 
las, 80 objetos e 150 verbos, o que 
acreditamos serem suficientes para a 
maioria dos casos. O comando POKE 
23658,8 for9a o cursor para o modo 
C (maiusculas). Se voce quiser incre- 
mentar um pouco mais, experimente 
urn POKE 2360930. 



UM EXEMPLO 



Aqui esta um exemplo de adventure com 
cinco salas. Tente roda-lo. Os mimeros estao 
na ordem em que o micro os pede. 

Nome - 'Teste" 
£ por pontos? - Na"o 
Quant os locais? - 5 

LOCAL I 

Descricao: "Estamos numa velha sala de 
estax. Ha muito po, aquil" 



NORTE 


S'JL 


LE ST E 


OESTE 


SUBA 


DESCA 















LOCAL 3 

Descricao: "Que lugar estranhol Hi um 
botao na parede". 



witn 




LKSTE 


OESTE 


SUBA 











2 









NORTE 


SUL 


LESTE 


OESTE 


SUBA 


DESCA 




n 












LOCAL 2 

Descricao: "Estamos num corredor. Ha 
uma escada que desce e uma porta". 



LOCAL 4 

Descricao: "Esta muito escuro, masperce- 
bo uma tocha apagada na parede". 





SUL 


LESTE . 


SUBA 


des;a 


















Adventure 



t>REM •••••••••••• 

2 REM •• ADVENTURE •• 

3 REM •• 

« REM 

1* POKE 23658.8! BORDER II PAI- 
ER 5: INPUT "QUAL O NOME DO ADVE 
NTURE 1UE UOCE SUER JOBAR' v "f 
A*: CLS 

15 LOAD A* DATA /<): LOAD "LOC 
AIS" DATA L*<>: LOAD "DESLOC." D 
ATA M<)i LOAD "OBJEIOS" DAIA 0*1 
>i LOAD "P03.0BJ." DATA P<>: LOA 
D "VERBOS" DATA Vi<>: LOAD "COUP 
L." DATA C»(): 1 OAD "MENSADENS" 
DATA M%<>« LOA[> "WOUPARA" DATA D 
(>« LOAD "DES.OBJ." DATA K > : LO 
AD "AUM. SCORE" DATA A( ) : LOAD "P 
ODE" 1 " DATA U(>« LOAD "OBJ.NECES. 
" DATA Bill LOAD "REP.UER." DATA 
K() 

29 CLS = LET SCORE."*: LET POS = 
Zd>« LET SPON-ZlP): LET PONMAX« 
ZO>* LET NL*Z<4>t LET N 
LET NW-216>: DIM I 

25 LET J=9= LET POSI-P09: DIM 
8<NO)l FOR I»l TO NO: LET ' I I H 
<I): NEXT I: I i 

3* PRINT HIPOS) " 

35 IF POS--1 THI N 

4* IF POS--2 THEN GOTO 4V5 

45 LE 1 3U=» 

5* FOR I«I TO NO 

55 IF P(IM>POS THEN GOTO 75 

6* IF UU THEN GOTO 70 

65 PRINT '"OS OBJETOS VISIVEIS 
SAO:": LET au«l 

/» fH INT 0*1 1. 10 Ml. 

75 NEXT I 

8* INPUT FLASH HO QUE FARE I 
AGORA- 1 ""H*i PRINT "' ) ;H*"' 

85 IF H»«" THEN CLS : GOTO 40 

90 LET A*»"": FOR F«l TO LEN II 
* 

95 IF H*(F > = " " THEN DOT* 
1*9 LI I A«*A«*H%<I H Nl • I I 
105 LH n* i FOR i -li m Hft TO 

LEN A4-I iTEl 
110 II H*'l ' I HI H liOIO 12* 

| aVIIVF I .11*: HI • I I 
IS* LEI 8M-*> i "l- l I l" "'•' 
i25 IF AK >W*< I . TO LODE V*«l.l 



;, ) > the h BOTI 

130 II mi 'I VI. TO CODE LV I , 1 
3) I i m M 001 

1 13 If KCI) AN[> E I I i IHLN I'RINT 

i LASH i I H»1 It ria • 00 

14* II II' I ' IMt.H III/ 

THEN PRINT "Alnda n>o posio f»? 
i-lol F*"l DOTO 19* 
145 II in I I •• Till N C.OTO 16* 
159 li ION U'HI -1 mi " li 

1 . Illl 'i PR INI N*o po«so f 
■ze-Ia aqui ' ' : DOTO 1*0 
I . . 

N PR INI 'Una ROSSO « ■•■ 
l"l I.OTO 19* 
16* PRINI ' - MV I • 

163 H Dl I ■ I'llH i L ' i R09 

IF P0S>-1 THEN PRINI ' 'L*l f 

l '9 li t ■ I )-c mi N DOTO 183 

I) | THEN LEI i" II 
-POS: GOTO 185 

18* LET P(AB 

185 LET E(I>»1« IF KPON WEN II 
T SCORE-SCORE' d' ! I 

1"9 LET l=NV: LET QU-1 

1*3 »i 'i i 

L'99 IF IMA> nil N DOTO 

49% 

ro 15 

21* IF NOT At 'PONTOS" THEN 001 
22* 

,-i. [| HOI PON in! ,. 
DUE N HIRE NAO E POR PON I OS i': GOT 

80 

213 PRINI TEM" ATI ■ 

PONTOS" - ': GOTO 80 
H not >.-,k pi BUI M -it A 
i ..run l mi n i.'ii 

|| B»- 1111 N PRINI i 

1 PELO Ml NOS <"iur>" - : 0OT0 8* 
230 ii i 5 mi « PRIN1 

l i ARRI DAD NAT! NAOA 

et ou-*« Fon i i ro NO 

■»i> ii M01 IB» '•»■ i . 
(1, 131 Ml ■ THEI 

■ 

lAtl l :ii- 
.",» LET QH-1 

■ •' I I. I I .!• 1 

265 ni ■ I 1 



H 



QW i HI " PRINT inoeri; 



111. 

289 II N01 tAS« '."lit" OR A*> L 
AROUI ' ' 

. II'. II I iJUK 

299 FOR 1=1 TO NO 

n N01 'B* 0*1 I , Dl 0* 

i i THEN 01 

29 

300 PRINI |At| I |BS 
3*5 LEI QU=1 

31* LEI P'l >=POS 

J!'. Ill J-J-l 

32* NEXI I 

325 IF OU THEN DOTO 35 

330 PRINT "NAO IEM0S "lB*l' CON 
OSCO'": GOTO B0 

335 IE At' >"DESI5TO" THEN UOTO 
345 

34* CLS : PRINT NESTE ADVLNIUR 
E VOCE FEZ ': SCORE '"PONTOS. 

i '. '|8C0RE/P0NHAX«100|'"X DO T 

OTAI ' ': GOTO 475 

345 IF NOT (A*= I" OR A*«"INOEN 
TAR 10") THEN GOTO 490 

350 LET QU=0 

355 FOR 1=1 TO NO 

360 IF PIIHI-1 I HEN GOIO 385 

365 IF iJU THEN GOTO 380 

370 PRINT "ESTOU CARREGANDO: " ' 

375 LET 8U«1 

389 PRINT TAB 10: BRIGHT 1|04<I 
TO 14) 

3B5 NEXT I 

390 IF 0U THEN GOTO B0 

395 PRINT "NAO ESTOU CARREGANDO 

NADA. ..": GOTO 8* 

400 IF NOT <(A»«"N" AND M<POS.l 
)) OR <Ai="VA" AND B*-"N0RTE" AN 
D M(POS.l))) THEN GOTO 410 

405 LET POS-=M(POS.l )« DOTO 30 

410 IF NOT ((Ai="S" AND MCP0S.2 
)) OR (A*="WA" AND B*-"SUL" AND 
M(P0S,2)>) THEN GOTO 429 

415 LET POS=M(P0S,2): GOTO 30 

420 IF NOT <(A*="L" AND MIPOS.3 
)) OR <A*="VA" AND B*="LESTE" AN 
D M<P0S.3>)> THEN GOTO 430 

425 LET POS-MTPOS.3): DOTO 30 



, , ..i. .-.► ".-. AND B» ■' n "'i 
■ 
4 : DOTO 10 
Mr II NOl (A* SUBA AND 

li', i 
■ 

• 
4 

. A* I OR A* 
,.k 01 A* '.'•'. Till N IKIN 

•■ 

4,65 PR |N1 I LASH I ; INI 

I 

0t BORDI i- 
: PR INI A 

mi! ro, MA 

m. . MELHOR SORTE NA 

PROXI I I* 

.,, ,0] i : ... 

•17-, INPUT INP 

ill* 

■ 
ii NEXT I > LET Pi 

R| ,■■ NUl Mil 

I : I T 1 IV 

I ' 
I ■ 
49'. PA 
INK 11 
H i | HI 'ip, PARABI '•' ' 
IU COMPLI T.-.R ADVJ NTURI ' M"i 
FOB FM "iNi .ki ,i : NEXI 

N I Mi N PRINT ' ' ' 'VOCE 

FEZ | SCORE] UM TO 

T.-.l Dl iPONNA* i . ' I : i 

BC0RE/P0NMA»"1>-.-: . 
500 GO I 




BRASILTRADE CENTER 



Comercio, Industria e Participacoes S.A. 

COMPUTER SHOPPING 







Mesas 

para 

Microcomputadores 

FabricagSo prdpria • Cores discretas • Desenho moderno 



BTC-05 M 

BTC-03 M 





BTC-02 M 




CrS 1.149.000 



BTC-04 M 
BTC-01 



CrS 899 




EQUIPAMENTOS 



Micros das linhas: Sinclair • TRS-80 • CCE • Unitron • 
Dismac • TK 2000 II • TK 85 • Exato Pro • Impressoras 
Modem • Etc. 



SUPRIMENTOS 



Perifencos • Disketes • Fitas • Drives • Placas de 
Expansao • Interfaces • Formulario Continuo • Cabos 
• Arquivos para Disketes • Etc 



SOFTWARE 



Programas e Jogos variados para todas as linhas e 
marcas de Computadores 



VIDEOS 



Curso de Ingles em video cassete • Telao • Suporte 
para TV • Transcodificaqao para todos os sistemas* 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabec,a» 
Batenas para 2 e 8 hs. • lluminadores • Cabos de 
extensao para Camaras • Bblsas para Camaras e Videos 



Nas lojas Brasil Trade Center, voc£tambem 
encontra video-same, cartucho com jogos, 
som, telefonia, etc., das melhores marcas. 

VISITE UMADENOSSAS 

LOJAS E COMPROVE O 

QUE ANUNCIAMOS 

Matriz: Av. Epitacio Pessoa, 280 
Ipanema-RJ — Tels.: 259-1299/259-1499 

Filiais: Rua da Assembleia, 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 

Rua Silva Vale, 416 — Cavalcante-RJ 
Tels.: 592-3047/592-3098 

Rua Lopes Trovao, 134/Sala 201 
Niteroi-RJ — Tel.: 710-3659 

Rua Conde de Bonfim, 229 — Loja A 
Tijuca-RJ — Tel.: 284-2031 



SERVICO EXPRESSO REMETEMOS PARA TODO BRASIL 



OFERTA VALIDA COM A APRESENTAgAO DESTE ANUNCIO 
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Vfn ■■ 
i fl " 

Jf HRUiMI »i PAI'IR ': INK 11 B 

ORDIK II D : > ,f >KE 23658.81 CLS 

• I MM a ./UAL E NOME DO ADVEN 

rURE '"AS" If At«'" THEN BO 

TO IB 

?i LE i UMAX"! 

3* PAPEH 6> IL'j : I'RINI "0 ADV 
ENTURC E POf N • '■ I 

NPUI .It: I'RINI II*: IF HtO'N" AN 
:ili N G010 3« 
49 IF H*> ■ mi n i [ r BPON-H 
prini QUAI i St "ft MAXIMO ?"• 
Inpui PONMAX' PRINT PONMAX 

.'•PER *■- BR IBM |i il'. : IN 
phi 0UANTOS LOCAIS km ADVENT 
:Nt. 
6» DIM lv.nl.v/. ■: l-IM M<NI ,6) 
■"» FOR I-« 10 NL 
80 CLS t PRINI AO DO L 

: INVERSE i : I : INPUI I CNi 
Lid, PRINT LSU. TO >" 

99 PRINI QUE LOCAIS ALLANCO E 
XECUTANDO.. . 

19B PPINI 'NORTI (N> "f 

III Hi III M< I , 1 l-H« PRINT H 

tl» PRINT Sill 
ill h: Lf T HI I .:' .-h: pbini II 

129 PRINT I ESTI 
Ill H: LEI M<I,3>-Hl PRINI il 

13« PRINI "01 IT] OJ : : 

III HI LEI M(I.4>°H: PRINT II 
14* PRINT "SUB A 

hi Hi iii m- i ,5>«W prini ii 

159 PRINT "DESCA 



tNI 



I'll 



INf 



INI- 



I'll 



1M 



UT H: LET ml.Al'Hs PRINI H 

169 INPUT "TUOO OK - ' "|H»: IF H* 
- N" THEN CiOTO 89 

\ 79 NEXT I 

180 PAPER H BRIGHT l: INf 
LS I INPUT "OUANTOS ODJETOS HA N 
O JOGO 7 "iNOi DIM 0*(N0.15)s DI 
M P(NO> 

199 FOR 1-1 10 NO 

?99 CLS x PRINT "QUAL 08JET0 
': INVERSE 111": INPUT Hi: LET 
HI. TO 14>«H»: LET 0*( I . lf.)=CHR 
* LI N Hti PRINT Ht' " 

219 PRINT "EM OUE LOCAL SE ENCO 
NTRA-> "•: INPUT P<1>« PRINT P(I> 

2?9 INPUT "TUDO OK? "iH»: IF Hi 
■ "N" THEN BOTO 299 

.'.'39 NEXT I 

..'49 PAPER 21 INPUI -QUANTOS VER 
BOS" 1 "(NVI DIM V*<NV.15>» DIM C* 
(NV.lM: DIM M4INV.64): DIM DINV 
II DIM F(NV>I DIM A<NV>: DIM U(N 
V): DIM B<NV>» DIM K(NU)s FOR I- 
1 TO NV 

259 CLS « PRINT QUAL VERBO " 
il": INPUT Hi: LET VSU, TO 14>- 
H*« LET V»(I.15)-CHR* LEN H»: PR 
INT Hi 

.J 69 PRINT '"QUAL SEU COMPLEMENT 
T"t INPUT Hl« LET Ci(I. TO 14 
)=Hi: LEI Ci<I.l5>=CHRi LEN Hi: 
PR INT H% 

279 PRINT "'QUAL A RESPOSTA DO 
MICRO ?"« INPUT LINE Hi: IF Hi-" 
" THEN LET Hi="OK." 

289 LET Mid. TO >"Hi: PRINT Mi 
< I . TO > 



290 PRINT '"PARA QUE LOCAL SOU 

TRANSPORTADO < 0»NAO SOU TRASNSPO 

RTADO ": INPUT D<I>: PRIN 

T D(l) 
399 PRINT '"DESLOCAMENTO DE OBJ 

LIO' (♦n.-n.O)": INPUT F 

( I> : PRINT F(I> 
310 IF SPON THEN PRINT '"VARIAC 

AO DE SCORE (♦n.-n,»> ": INP 

UT A( I ) : PRINT A( I ) 
320 PRINT '"ONDE POSSO EXECUTAR 
COMANDC ": INPUT U<I>« PRIN 

T "SAL A "|U(I> 
339 PRINT "'QUE OBJETO OEVO TER 

? (9=NENHUM>"l INPUT B(I)l IF B 

(I) THEN PRINT Oi(B(I). TO CODE 

OitB(I) .lfi>) 
346 PRINI "'POSSO EXECUTAR ESTE 
VERBO MAIS DE UMA VEZ -1 (S/N)": 
INPUI Hi: IF Hi»"N" THEN LET K( 

I)»U GOTO 360 
ISO LET K<I>-0 
360 INPUT FLASH 1|"TUD0 OK? "»H 

*: IF Hi='N" THEN GOTO 250 
370 NEXT I 
380 PAPER 4: INK 0: BRIGHT 0> C 

LS < PRINT "QUAL LOCAL DE INIC 

101 -,i INPUT POS: PRINT POS 
390 DIM ZI6): LET Z(1)=P0S: LET 
Z(2)-SP0N« LET Z(3)»P0NMAX: LET 
Z(4>-NL: l r .. Z<5>-N0l LET Z(6>" 

NV 

490 PAPER 7: INK 2: CLS : PRINT 

AT 10,5:"VOU ORAVAR AS MATRIZES 

APERTE UMA TECLA": P 

AUSF 

■116 SAVE Al DATA Z<>: SAVE "LOC 



AIS" DATA Lil»: SAVE DESLOC I) 
ATA M(li SAVE "OBJETOS" DAT* 0*< 
): SAVE "POS. OBJ.' DATA P. II 
E "VERBOS" DATA Vi' >: SAW 
L." DATA CiOS SAVE MENSAGENS' 
DATA Mi<): SAVE VOUPARA" DA1A P 
(>l SAVE "BEfl.OBJ." DATA Fill SA 
VE "AUM. SCORE" DATA AOl SA 
ODE""' DATA U<> = SAVE "OBJ.NECES. 
" DATA Bl): SAVE 'REP. VER." DATA 

K( ) 

420 CLS : PRINT AT ie.0i"RLBOfll 
NE A F1TA PARA VTRIFY 

439 VERIFY Ai DAI A /(>: VFRIFi 
LOCAIS" DATA L*()« VERIFr "DESL 

DATA HOI VERIFY "OBJtTOS" 
DATA Oi<): VERIFY "POS. OBJ." DAT 
A P()l VERIFY "VERBOS' DAIAVii) 
: VERIFY "CO-PL." DATA Cil>: VER 
IFY "MENSAGENS' DATA Mill: VFRIF 
Y "VOUPARA" DATA D<>: VERU 
S.OBJ." DATA F<): VERIFY "AUM.SC 
ORE" DATA A(>: VERIFY "POUE''" DA 
TA U()l VERIFY "OBJ.NECES." DATA 
B<>: VERIFY "REP. VER." DATA K<> 

440 CLS : PRINI AT 10.0: FLASH 
1:'0K OK OK OK OK OK OK OK OK OK 

0K";A1 20,0: Fl ASH 0:"BOM JOGO 
COM...""ADVENTUR( 



LOCALS 

Descricao: "Estamos num porao. Veja uma 
said a ao Sul e uma caixa no chao." 



NORTE 


SUL 


LESTE 


OP.STE 


SUB A 


DESCA 





1 








2 





Quantos objctos? - 7 



OBJ ETO 


DESCRICAO 


LOCAL 


1 


CHAVE 





2 


ISOUEIRO 


1 


3 


HAPA 


1 






2 


5 


►q ;■ 


3 


6 


MARTELO 


5 


7 


SERROTE 


3 



Verbo' 

Examine 

Ma pa 

£ um mapa de Hong Kong I 

0,0,-1, 3, S 

Verbo 5 

Accnda 
Tocha 

Assim & melhor 
5,0,4, 2, S 



Veibo6 

Apague 
Tocha 
Ok 
4,0,5.0,S 



Numero de verbos - 6 



Para exemplificax a entrada dos verbos, 
complementos e outras informacfles sobre o 
adventure, descreveremos apenas o primeixo 
exemplo. Portanto, valerao para todos os 
exemplos, apos o primeiro, as mesmas pergun- 
tas. 

Verbo 1 - Abra 

Complemento - Caixa 

Resposta do micro - Veja o que achamosl 

Transportado paia - 

Deslocamento de objetos - 1 

Onde pode executar - 5 

Objeto que deve ter - 

Pode-se executar mais de uma vez - N 



Verbo 2 

Aperte 

BotSo 

Ok (tecle apenas Enter) 

-2,0, 3, O.N 

Verbo 3 

Abra 
Porta 
Ok 
3.0.2.1.N 



Local de ini'cio:-! 



VARlAVEIS UTILIZADAS PELOS 
PROGRAMAS 

L$ (matriz alfanumenca) - Contim as descri- 
o3cs dos varios locais. 

M (matriz num&iea) - Cont^m os vetores de 
deslocamento nas seis direcSes (N, S, L, 0, 
Suba e Des^a). 

0$ (matriz alfanumerica) - Contem os no- 
mes dos objetos, sem artigo. 

P (matriz numerica) - Contim a pos^ao de 
cada objeto. Ha poskjoes part iculaiesl 

-1 indica que o objeto esta com o jogador 

indica que o objeto esta no local zero 
(guarda-objetos) 

V$ (matriz alfanumerica) - Contem o impe- 
rativo dos verbos do joeo. 

C$ (matriz alfanumerica) - Contem o com- 
plemento de cada verbo. 

M$ (matriz alfanume'rica) - Contem a mensa- 
gem a ser dada ao jogador quando for execu- 
tado o verbo correspondente. 



D (matriz numerica) - Contem o eventual 
deslocamento do jogador relativo ao verbo 
correspondente. 

F(matriz numerica) - Contem o eventual des- 
locamento de objetos (aparecimento ou desa- 
parecimento) relativo a execuc^o do verbo 
correspondente. 

A (matriz numerica) - Contemn os pontos re- 
lat ivos a execuc^o do verbo correspondente. 

U (matriz numerica) - Contem o flag que in- 
dica onde o verbo correspondente pode ser 
executado (0 =em qualquer lugar). 

B (matriz numerica) - Cont6m o numero do 
objeto necessario a execucao do verbo correj- 
pondente. 

K (matriz numerica) - Contem o flag que in- 
dica se determinado verbo pode ser executado 
maisde uma vez. 

Z (matriz numerica) - Cont6m os seguintes 
flags: 

Z(l) =posi9ao inicial 

Z(2) = flag que indica se o adventure i por 

pontos 

Z(3) = escore a ser alcancado 

Z(4) - numero de locais 

Z(5) -numero de objetos 

Z(6) - numero de verbos 

J - Numero de objetos em poder do jogador 

A$ - Primeira palavra introduzida 

B$ - Oltima palavra introduzida 

PONMAX - Escore a ser alcancado 

SPON - Indica se o adventure c por pontos 

SCORE - Escore do jogador 

POS - Posisao do jogador (ver texto) 

H $ - Ordem do jogador 



Paolo Fabrizio Pugno cursa atualmente o pri- 
meiro ano da Faculdade de Engenharia Indus- 
trial (SP) e possui um ZX Spectrum, com o 
gual desenvolve programas. 



£ 



CONTINUAMOS RENOVANDO 



M 



M 



A mais completa linha de Software para o 
Color Computer CR 400, Color 64, MX-1600 



MICROMAQ - Rua Sete de Setembro, 92 • Lj. 106 - Tel.: (021) 222-6088 CEP 20050 RJ 



PR.001 • Zaxxon/Buzzard bait 
PR.002 • Draconian/8 ball 
PR.003 - Speed racer/Bag-man 
PR.004 - Galagon/Demon seed 
PR.005 - Space wrecWSea dragon 
PR.006 • Sanclum/R-ball 
PR.007 - Sea quest/Quix 
PR.0O8 • Calixto island/Pooyan 



PR0M0QA0 DE FERIAS 

Fitas com dois programas 

Selecao de alguns dos melhores "games" agrupados dois a dois. 

PR.009 - Lunar rover/Devil assault 
PR.010 • Time patrol/Moon shuttle 
PR.011 • Canyon climb/Fly tiger 
PR.012 • Decathlon/Cashman 
PR.013 - Color car/Kron 
PR.014 - Rat/The king 
PR.015 • Cristal/Doodle bug 
PR.016 - Time bandit's/Tut's tomb 



PR.017 • Time fighter/Moon hopper 
PR.018 • Mudpies/Death trap 
PR.019 • Crash/Ranger 
PR.020 - Color panik/Shenanigans 



ATENCAO: • qualquer fita acima 40.000. 

• as fitas acima nao sofrem desconto 
de qualquer especia 



Solicite nosso catalogo com mais de 300 produtos 



RECORDISTAS DE VENDAGEM • 1985 



E006 

PP002 

PJ011 

PJ005 

E006 

PJ051 
PJ039 
PJ018 
PJ065 

PJOM 
PJ059 
PJ071 



WORLD'S OF FLIGHT • Simulador de voo 

CYRUS • Para amantes do logo de xadrez 

ZAXX0N • Enfrente os pengos de uma plaialorma espacial 

CRISTAL • Sensacional • estilo Pac-Man em 3D 

SAILOR • Denote o Brutus e conquiste o coracao da Olivia 3 telas. 9 niveis de 

diliculdade 

SPEED RACER • Corrida de carros Itipo Hipper) 

DRAC0NIA • Salve os prisionenos do espaco e fuia do dragao 

BUZZARD BAIT ■ Ataque os passaros com sua lanca 

GALAG0N • Identico ao Fantastic do Hipper 

QUIX - Identico ao do Hipper. Preencha 75% da tela sem ser atmgido 

DECATHLON • 10 provasolimpicas 

SPACE WRECK • Defenda sua base espacial do ataque inimigo. 3D com naves 

estilizadas 



50.000 PD001 CALIXTO • Ajude o arqueologo (Prol. Lagarlo) a recuperai o tesouro 

35.000 PD003 SEA 0UEST - Recupere o tesouro perdldo 

35000 PD004 BLACK SANCTUM • Exorcize o demdnio 

35.000 PJ023 DEMON SEED - Destrua passaros, sementes e naves 

E002F MUSICA 2 ■ Para compor, arranjar. copiar parlituras etc. 
35.000 PU008F SUPER SCREEN - Aumenta o tamanho da tela (52 colunas. 24 Imhas) Acrescenta 
35.000 lunccjes diversas 

35.000 PA002F ELITE CALC ■ Ramlhaeletronica. Ate255linhasecolunas. Manipula textos, numeros 
35.000 etc. Emite graficos e permits ordenar colunas e Imhas. Manual em porlugues 

35.000 PL001F EDTASM - Lmguagem Assembler 
35.000 PL005F COLOR LOGO • Linguagem educaliva logo 
35.000 PA007D PRO COLOR FILE • melhor banco de dados ia criado para o color. Somente em 

disco (preco incluso) 
35.000 PA006F TIM&SIGA Banco de dados que permite criar ate 8 campos. Manual em port. 
Para programas em disco, acrescer 
60.000 por prog'ama (Disco + Embalagem) 



35.000 
35.000 
35.000 
35.000 
140.000 

100.000 

150.000 
150.000 
180.000 

270.000 
130.000 



A GRANDE SENSAQAO 
COLOR MAX (modulo de alta-resolucao) • Reproduz no color com 64K a perfor- 
mance grafica apresentada pelo Macintosh, imitando as funcoes do MacPaint. 
Utiliza tecnicas modemas de programacao tipo "Icons" e "Pulldown Menus". 
Composto de placa de Hardware e programa em fita ou disco E001F 

(Para calculo de ORTN. considerar a data da postagem) E001 D 



CONSULTE. 
BAIXOU ! 



'JOGOS SO PARA DISCO 
(preco c/disco incluso) 



OUTROS PROGRAMAS 



PS003D 
PD005D 



PO0WC 

PD011D 



PS002D EAGLE • Simula um voo espacial em que voce deve aportar e levantar voo da lua 

ou de marte. Manual em mglfis. Requer 2 Joysticks 90.000 

THE FACTORY • Cne a linha de montagem de uma labrica e teste a sua memdria 90.000 

SANDS OF EGYPT - Descobrir o misterio da tumba do Farad 90.000 

CRIME • Desvende o misterio de um crime. Afinal, voce e o detetive 90.000 

PD009D MAJOR ISTAR • Viajando atraves das cidades submarinas do seculo 21, voce devera 

desvendar o misterio de Triden I 90.000 

SAM SLEUTH • Desvende o misterio de um desaparecimento 90.000 

STAR TRADER Mercador das galaxias 90.000 

• GRAFICOS 
AmGRAFCria(topelaMicromaq.Necessita64K.Trabalhacom8telassimultaneas 

na memiria no mais aito modo gratica PG004F 200.000 

PG004D 260.000 
VIZIDRAW • Muito potente para desenhar. Acompanha o Vizidump, que leva suas 

telas para a impressora PG005D 300 .000 

ART GALERY- Potente gerador de gralicos e telas dedesenho PG002F 150.000 

•SOM.SJNTFJIZACAO 
COLOR QUAVER ■ Para compor, arranjar, copiar parlituras. monta espectro, cna 

ondasetc. PM003F 160.000 

PM003D 220.000 

• EDUCATIVOS 

TABELA PERIODICA DEQUiMICA PE012F 40.000 

PE012D 100.000 

MAPA MUNDI-Desenhana tela Mapa Mundi, Ortogralico ou Polar PE013F 40.000 

PE013D 100.000 



• APLICATIVOS P/FITA 
WRITER II - Tela de ate 85 colunas, "Window" do texto com a lorma final. Permite 
insercSo de caracteres em porlugues (na imp.). Mais de 100 luncoes PA001F 
MALA POSTAL (I) ■ Totalmente criado no Brasil. Emite etiqueta, relatorio e lista 
telef&nica PA013F 

ASTROLOGIA - Gerador de mapas astrolbgicos PA017F 

HANDY MAN • Auxihar no calculo de custos de obras civis, calculo de areas, 
coberturas etc PA030F 

STATGRAF ■ Estalistica. Gera gralicos com regressao linear, medias, desviosetc. 

PA021F 
• APLICATIVOS P/DISCO 
VIP WRITER- Idem aoPA001F 
VIP DATABASE • Banco de dados 
MATHMENU - Sistema para auxilio no estudo da matematica 
DYNACALC - Planilha eletronica. Gera graficos em alta resoiucao 
ELCIRCAN • Analisadorde circuitos eletricos 
STATGRAF • Idem ao PA021F 

• UTIUTARIOS EM FITA 
VDOS • Simula o sistema operacional de disco em fita 
FAST TAPE • Dobra a velocidade de leitura e gravaQio para cassete 
COLOR KIT- Ferramenta muito potente para trabaiho com a memona. Acrescenia 
mais 30 funcoes ao Color. PU019F 

• UTIUTARIOS EM DISCO 

ADOS - Sistema de DOS. mais utilizado atualmente. Cria novas luncoes PU001D 
CBASIC COMPILER - melhor compilador ale o momenta Compila tudo E003D 
COLOR KIT- Idem PU019F PU019D 

VIP DISK ZAP • Altera todo o conteudo de um disco PU020D 

WHERE IS IT ? - Gerenciador de diretdnos. Autr>explicativo PU018D 



PA001D 
PA015D 
PA029D 
PA011D 
PA028D 
PA021D 

PU013F 
PU014F 



200.000 

160.000 
150.000 

35.000 

160.000 

260.000 
260.000 
220.000 
260.000 
220.000 
220.000 

120.000 
130.000 

160.000 

220,000 
320.000 
220.000 
320.000 
150.000 



Desconto 

ate 150.000 sem desconto 

de 151.000 a 250.000 5% 

de 251.000 acima 10% 



Dt»o|o rocefcer 0(8) saguinws) program**), petola) qixKIa) paflwel a quanlia da Crt 

PHOGRAMAS: 

NOME 



ENO 



Para tal, ealou anwando ( )ch«qu«( | Vale Postal a MICROMAQ LTOA 
Rua Sale de Setembro. 92 - U 106 • CEP 2O0SO - Rio de Janeiro - RJ 
OesMsas de cotreio locluldas. 
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MICRO SISTEMAS, Janeiro/86 



ATENQAO: So serao aceitos os pedidos com postagem ate 31/01/86. 



zx81 zx81 zx81 zx8 



Thunderbird 



Gilson Roberto Viana 



Thunderbird 6 urn programa animado, baseado numa bata- 
lha aerea onde voce tern, como ardua tarefa, a missSo de pilo- 
tar um aviao de bombardeio por uma regiSo montanhosa e infes- 
tada de misseis antiaereos e cacas inimigos. Cada projetil ini- 
migo abatido por um tiro ou uma bomba aumentara" sua pon- 
tuacao em 1 pontos. 

Cada vez que voce colidir com um obstaculo (montanha, 
missel ou caca), perdera uma nave e o jogo so se reiniciara 
quando for pressionada a tecla NEWLINE. jogo acaba quan- 
do voce perder suas tres naves. 

A cada reinicio de partida, o leitor pode modificar a veloci- 
dade de acordo com o nivel escolhido, que pode ser lento 
(1), medio (2) e rdpido (3). Entretanto, se voce estiver reali- 
zando uma competicao, 6 aconselhavel manter o mesmo nivel, 
para que todos os jogadores pilotem com o mesmo grau de di- 
ficuldade. 

Caso voce consiga quebrar o recorde antigo, tera o privite- 
gio de escrever seu nome no quadro dos campeOes. nome 
pode ter, no maximo, sete letras e, se for maior, deve ser com- 
pletado com pontos. 

Os controles podem ser usados simultaneamente. Sa"o eles: 



1) Oigite a listagem 1; 

2) Digits GOTO 100 e NEWLINE; 

3) Quando for pedido endereco inicial, digite 16514 e NEWLI- 

4) Digite os codigos em linguagem de maquina da listagem 2 e, 
quando acabar digite ". ."; 

5) Quando, novamente for pedido endereco inicial, digite 30720 
e NEWLINE; 

6) Digite os codigos em linguagem de maquina da listagem 3 e, 
quando terminar, digite "XX"; 

7) Apague (delete) as linhas de 100 ate" 210; 

8) Finalmente, se tudo estiver correto, prepare a fita para nravar 
e digite RUN e NEWLINE. 



Figura 1 

6 - desce; 7 - sobe; 9 - dispara bombas (maximo de tres 
bombas) e - dispara tiros (maximo de cinco tiros). 

Veja, na figura 1 , como voce deve proceder na digitacao do 
programa. 



Gilson Roberto Viana 6 estudante do Curso de Engenharia Elitrica, na 
UFPr, e Programador autodidata hi dois anos. 



i REM iiiiiinii'iiiniiuin 
liiiiini 

10 DIM K$<il 10 | 

20 HAND USR 16528 

30 SAVE "THUNDERBIRD" 

40 RANI) USR 1653'J 
100 i 
105 PRINT "ENDERECO 1NH [Al 

107 INPUT N 

110 PRINT N 

115 LEI B=N 

120 LEI Al="" 

125 IF At<2 10 >="' IIH N INPUT 
A* 

130 IF Af<2 10 >=■"' THEN BOTO i 
25 

GO rO (AS - . . ")«(-40> + <Ai. 
. |*(-50 i+j 40 

140 POKE N, (CODE At B>«i6+I ODI 

A* ( 2 ■■ 



150 IF B+8=N THEN LET 8=N 

160 IF BON IHEN GOTO 180 

165 SCROLL 

170 PRINT N;" - "; 

180 PRINT A*( TO 2>: : 

190 LET A$=AS<3 1" I 

200 LET N=N+i 

210 ROTO 125 



Listagem 1 



16514 


2A 


L0 


.,., 


1 i 


0.-. 


00 19 


i i 


16522 


00 


,'» 


0j 


55 


04 


C9 CD 


B2 


16530 


40 


I B 


11) 


B0 


i 9 




40 


16538 


LI.' 


B0 


C3 


BS 


•Mi 


00 00 


00 



30720 


B0 


80 


B0 


80 


B0 


EM 


80 


97 


30728 


97 


80 


H V 


AD 


BA 


1! .1 


A9 


AA 


30736 


B7 


A ' 


AC 


B7 


A9 


B0 


97 


97 


30744 


B0 


80 


80 


80 


B0 


110 


1 1 B 


80 


30752 


B0 


00 


2C 


..'( 


31 


38 


34 


33 


30760 


00 


3B 


2E 


26 


33 


26 


00 


16 


30768 


00 


32 


2E 


.•H 


37 


34 


00 


38 


30776 


,'l 


38 


39 


.'A 


32 


26 


30 


80 


30784 


07 


•■ 


B4 


B. 


A6 


BD 


AF 


B2 


30792 


B4 


B0 


AF 


B -' 


Al 


,,. 


A9 


B4 


30800 


B7 


B0 


1)0 


BS 


Hi 


A6 


AS 


A6 


30808 


li - 


B0 


B9 


AA 


H a 


n r i 


B4 


80 


30816 


05 


»i 


BS 


iC 


1C 


IC 


IC 


IC 


30824 


1C 


00 


0F 


01 


01 


01 


0F 


0F 


30832 


01 


00 


B0 


1L 


11 


11 


li 


IC 


30R40 


H 


H0 


li 


11: 


25 


25 


25 


80 


30!) 48 


01 


01 


5B 


41 


54 


-•i , 


A3 


08 


30856 


1 


08 


08 


. 


< 


i 


0n 


03 


30864 


0S 


03 


08 


03 


08 


i 


08 


03 


30872 


E5 


[>■■ 


i 5 


2 A 


01 


, ( ., 


li 


EE 



Listagem 2 



30880 02 19 5f 7E FE 25 20 05 



REPRESENTANTES AUTORIZADOS 

Para sua maior comodidade, a ATI Editors Ltda. coloca a sua disposicSo 

os seguintes enderecos de seus representantes autorizados 

BELO HORIZONTE RIO DE JANEIRO SAO PAULO 

£a ESltfW ' Andrade AT ' Ed ' ,0ra L,d8 Rua °liveira D.as. 1 53 

Trt <fflmmi Av Pres Wi,8on - 165 - gr. 1210 Jardim Paulista 

A1TIU CEP 20030 -Tel.: (021 (262-6306 CEP 01433 - Tel: (01 1) 853-3574 



_ TMIoro 

Sistemas 

PORTO ALEGRE 

Com. Rep. Odilon Ltda 

Rua Vol. da Patria. 323 - CJ. 309 
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** S 



COMPUTA^AO E COM A CAMPUS 



BESTSELLERS: 



LANQAMENTOS 



JANEIRO/86 



1 MUMPS - Lobo, M. C. - Cr$ 49.000 

2 InteligAncia Artificial am BASIC - James, 
M. - Cr$ 90.000 

3 VISITREND/VISIPLOT: Guia do Uiuario 
Brasilelro - Christmann, R. U. - Cr$ 54.000 

4 LOGO: Uma Introducao — Goodyear, P. 
M. - Cr$ 82.000 

5 Linguagans da Programacao para Micros - 
Marshall, G. - Cr$ 72.000 

6 Pascal para Micros — James, M. — Cr$ 68.000 

7 Tacnica da Garanciamanto da Arquivos — 
Claybrook, B. G. - Cr$ 125.000 



APPLE 

8 Como Programar sou APPLE — Cook, R. e 
Hartnell. T. - Cr$ 41.000 

9 Jogos Graficos para o APPLE — Coletia, 
P. - Cr$ 82.000 

10 Manual APPLE am BASIC - Kantaris, 
N. - Cr$ 52.000 

BASIC 

11 BASIC para Aplicacoes Comarciaii — 
Hergert, D. - Cr$ 55.000 

12 BASIC com Estilo - Nagin, P. e Ledgard, H. 
F. - Cr$ 48.000 

13 BASIC Basico - Pereira F?. J. C. - (5? edi- 
ca~o revisada e ampliada) — Cr$ 64.000 

LINGUAGEM DE MAQUINA 

14 Alem do BASIC - Linguagem ASSEMBLY 
para a Linha SINCLAIR - Santos, N. - 
Cr$ 60.000 



15 BASIC Rapido: Alam do BASIC TRS-80 - 
Gratzar, E. A. a Gratzer, T. G. - Cr$ 99.000 

16 Manual do Microprocessador 2-80 - Barden 
Jr., W. - Cr$ 109.000 

17 Programacao am ASSEMBLER a Linguagam 
de Maquina |2*edicSo) - Alexander, D. 
C.-Cr$ 68.000 

SINCLAIR 

19 Dasafio: Os Mais Excitantes Jogos am 
BASIC - Botelho, A. J. L - Cr$ 87.000 

18 Primeiros Passos com o sau SINCLAIR 
(TKs) - Hughes, C. - Cr$ 49.000 

20 Program** Administrative* am BASIC SIN- 
CLAIR - Karsten, L. - Cr$ 57.000 

TRS-80 

21 30 Programas am BASIC para Computado- 
ras Passoan - Chance, D. - Cr$ 92.000 

22 1001 Aplicacoes para sou CompuUdor Pas- 
soal - Sawusch, M. - Cr$ 86.000 



ESTA t APENAS UMA SELEQAO OE NOSSOS TltULOS. PARA MAIORES INFORMACOES SOLICITE NOSSO CATALOGO 



OEdiiDra Campus 
Rua Barao da Itapagipa 55 - 20261 - RJ - RJ - Tal.: (021) 284 8443 

SI IV/I DESEJ0 RECEBER AS PUBLICACOES 
■ VI REFERENTES ACS NUMEROS ASSINALADOS: 
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Nome: 

Endereco: 

Cidada: CEP: 



Estado: 



n Madianta anvio de cheque nominal a Edi- 
tora Campus Ltda. (O porta e por nossa 
conta a sua encomenda chega mais rapido.) 

Cheque n? 

Banco 

Q Madianta pagamanto contra racabimanto 
dos livros polo reembolso postal, acrescido 
de daspesas posts is. 

Importante: Pracos validos ate 28.02.86. Ap6s 
esta data irrformar se concorda com o anvio do 
pedido com raajuste. 
□ SIM D NAO 



* 



NOSSAS PUBLICAQOES ESTAO A VENOA TAMBEM NAS BOAS LIVRARIAS 



trs-80 trs-80 trs-80 trs-8 




Fuga cosmica 



Jose Marcelo de Freitas Vilela 



O programa "FUGA/BAS" e urn jogo ro- 
dado cm BASIC, mas que possui uma pequena 
rotina em linguagem dc maquina, nas li- 
nhas 20 e 21. Esta rotina ativa a unidade 
sonora do equipamento, atraves da instru- 
cao J = USR(X); sendo J uma variavel muda e 
X a frequencia e a duracao do som desejado. 

O programa foi desenvolvido para os 
micros que tern 48 Kb de memoria.compatf- 
veis com os modelos I e III do TRS-80 (quer 
possuam ou nlo unidadesde disco). 

A listagem apresentam-se de forma exten- 
siva porque no programa estao contidas mui- 
tas sub-rot inas graficas, alem da presenca 
de sons, rui'dose trechosde musicas. 

OJOGO 

O jogo consiste numa fuga, na qual o joga- 
dor e urn guerreiro espacial que precisa sair o 
mais rapido possi'vel (20 minutos e o tempo 
maximo) de uma Zona Proibida (ZP). que e 



N 


— Ir para o norte 


S 


— Ir para o sul 


L 


— Ir para o leste 





— Ir para o oeste 


M 


— Ver o mapa (caso voce 1 o possua) 


T 


— Ver o tempo que resta 


E 


— Entrar na passagem 


R 


— Ver quantos diamantes restam 



Figura J 

dividida entre Zona Proibida 1 eZona Proibida 
2. O jogador tera varios comandos, conforme 
mostra a figura 1 . 

O jogador precisa ter cuidado com os ci- 
clones espaciais, com o tempo e nunca perder 
todos os diamantes de Orion, pois eles sao o 
combusti'vel da nave; perdendo-os, acaba-se o 
jogo. Cada lugar da Zona Proibida e chamado 
quadrante, isto e, uma especie de sala no 
espaco sideral. 

Quando se acaba o jogo (tenha o jogador 



ganho ou na"o), o computador faz uma conta 
com o niimero de jogadas e os diamantes 
conseguidos, dando o scu escore. 

Quando o jogador estivcr voando com sua 
nave na ZP, a tela do equipamento ira se 
subdividir em tres partes: na parte de baixo, 
esta o menu; no canto superior esquerdo, o 
computador de bordo; e no canto superior 
direito, o visor da nave. 

Durante a fuga cosmica, o jogador deve se 
preocupar em achar o Mapa e a Estrela do 
Poder, pois possibilitarao surpresas cspeciais . 

Agora, digite o programa com cuida- 
do e atencao; ao acabar, digite RUN e tecle 
ENTER que o computador dira tudo. Boa 
Sortel 

Jos6 Marcelo de Freitas Vilela tem 14 anos e 
cursa a oitava s6rie no Col6gio Sao Bento, no 
Rio de Janeiro. Possui um CP500 e aprendeu 
a programar em BASIC atrave's de livros e re- 
vistas. 



CLEAR., »0«POKE16419. 95 



FUGA COSMICA P/COMP. TRS-80 MOD. I e II] 

DE JOSE 'MARCELO DE FREITAS VILELA 

Rio dc Janeiro / 1985 / TELEF.) (021 >270 4380 



6 CLSiFORAA-lTO229»FORBB-lTO20«NEXTBB:READC)READLi8ET<C,L>iNEXTAA 

7 DATA 10. 18. 11, 18. 10. 17. 11, I7.lt. 16. 11, 16.1*. 15, 11. 15. It. 14, 11, 14,19. 13 
.11. 13. It. 12. I 1.12, It. 11. 11, 11. It. It. 11, It, 12. 9, 13. 9. 14. 9. 15, 8. 16. 8. 17. 8 
, 18. 8. 19. 9. 2t. 9, 12, 14, 13, 14. 14, 14, 15. 14 

8 DATA 2t, 14. 2t, 15, 2t, 16. 2t, 17. 21. 18, 22. IB. 23, 18. 24. 18, 25, 18. 26. 17. 26. 16 
,26.15.26.14 

9 DATA 35.14.34.14.33.14.32.1 .31 . 14. 3t. 15. 3t, 16. 3t. 17 .31 . 18.32. 18.33, IB 
, 34. 18. 35, IB. 36, 17. 36. 16. 36, 15. 36. 18. 36. 19. 36, 2t, 36. 21. 35. 22. 34. 22. 33. 22 
, 32. 22. 31. 22. 3t. 21 

It DATA 45. 1 4. 44. 1 4. 43. 1 4, 42, 1 4. 41,1 4. 4t, IS. 4t. 16, 4t. 17. 41. 18. 42. 18. 43.1 
8.44.18.45.18.46.17.46,16.46.15,46.18.47.18 

11 DATA 53. 38. 52. 38. 52. 39, 51. 39. 5t. 39. 49. 39. 48. 39, 47. 39, 46, 39, 45. 39, 45. 3 
8.44.38.44.37.43.37.44,36.43.36.44.35,43.35.44.34.43.34.43.33.44.33.43.3 
2. 44, 32. 43. 31. 44, 31. 43. 3t, 44, 3t. 44. 29. 45. 29. 45, 28. 46. 28. 47. 28, 48. 28. 49. 2 
8. 5t. 28. 51. 28, 52, 28 

12 DATA 52, 29. 53. 29, 61. 34. 6t. 34. 59. 34. 58. 34, 57, 34. 56. 35. 56. 36. 56. 37, 56, 3 
8. 57, 39. 58. 39. 59, 39. 6t. 39, 61. 39. 62. 38, 62. 37. 62. 36. 62. 35. 6t. 33, 61. 32 

14 DATA 7t. 34. 69, 34. 68. 34. 67. 34, 66, 34. 65. 35. 66, 36. 67. 36. 68. 36. 69.36, 7t. 3 
6. 7 1. 37. 71. 38. 7t. 39. 69. 39. 68. 39. 67. 39, 66. 39 

15 DATA 74,39.74.38.74,37,74,36.74.35.75.34.76.34,77.34.78.35,78,36.78.3 
7. 78, 38. 78. 39, 79, 34, 8t, 34. 81. 34, 82, 35, 82, 36, 82, 37, 82, 38. 82, 39 

16 DATA 85. 39. 85. 38. B5. 37, 85. 36, 85, 35. 85. 33, 94, 35, 93. 34. 92, 34. 91. 34. 9t. 3 
4, 89, 34, 88. 35. 88,36,86. 37, 88. 38. 89, 39, 9t, 39. 91, 39, 92. 39. 93, 39, 94, 38 

17 DATA 1 12, 34. It 1.34. I tt. 34, 99. 34, 98. 34, 97, 35. 97, 36, 97. 37, 97, 38, 98, 39. 9 
9.39. lte.39.iei .39.1t2,39. 1*3.38, lt3,37 . It3,36, lt3. 35, lt3.39. It4.39 

18 FORA-lTO29iFORB-lTO30iNEXTB:READC!POKE16277*A,C«NEXTA 

19 DATA 68,ltl.t,74.111,H5,ltl.39.t.77,97,114,99,ltl.lt8.111.t.ltt.ltl. 
*.7t.46,t.B6,lt5.1t8.1tl.lt8.97 

2t Z»-STR1NG*<24.32>IV-VARPTR<Z»>!L-PEEK<V*1)IM-PEEK<V*2>IE-L*256»N»IFE> 
32767 THEN E-E-65536iF0RI-ETOE*23)READXiPOKEI . XiNEXTH IFPEEK ( 16396)-tTHE 
NPOKEl 6526. Lt POKE 1 6527. MiELSE DEFUSR0-E 

21 DATA 2t5. 127. It. 62. 1. 14, t. 69. 47. 23t. 3. 21 1.255.1 3. 4t. 4. 16. 247. 24, 243. 3 
7,32.242.201 

22 F0RA-1T08HREAD OX-USR <C ) iNEXTA 

25 DATA 18t46. 18tt4, 19334. It34t . It352, 25663, 18tt4. It334. It34t. It352. 1798 
3, 18tt4. 11 568, 1157 1.1 1568. 12857, 25642. 18946. 18tt4 . It334. It34t. It352. 2566 
3 . 2S6B4 . 1 9334 , 1 9349 . 1 9352 

26 DATA 25663. 1B994, 19334. 19349. 19334, 11632. 39894, 19349. 8243. 8249. B255. 8 
259 , 8267 , 8259 . 8255 , 8259 , B267 , 1 1 5B7 , 1 9324 , 1 2875 , 8243 , 8249 , 8255 , 1 7962 , 1 797 
7, 19324, 19315. 8243. B249. 8255. 8259,8267. 8259. 8255. 8259,1 9315, 11587, 8276. 8 
276 . 8276. 1 1583 , 8262 , 8271 

27 DATA 8276.8286.19346.19352.19366,19324,2644,8276.8276,19324,126 
199 CLS IPOKE 16921.0: POKE 16920. 0IPOKE169 19.0 

179 FORZ2-1TO9001NEXTZ2 

189 CLB»DIMA<9,9,2> 

1B5 PRINTCHR*<23> 

199 PRINT3960."O lapeno Galactlco fol atacado" 

191 GO9UB20***«PRINT"por uaa civil Izacao al len Isena." 

192 G0SUB2999tiPRINT"E voce, ua guerrelro espacial." 

193 GOSUB2»**0iPRINT"fol atingido ea coabatc. A de-" 

194 G0SUB29999iPRINT"r Iva. fol arrebatado coa vioIen-"i 

195 00SUB29999iPRINT~cia por ua planeta de grande " 

196 GOSUB20000>PRINT"gravldade e sugado para a ZONA "iG0SUB2tttei 

PRINT"PROIBIDA. voce e»ta' perdldo e" tGOSUB2****i P 

RINT'prec laa »alr rapldaaente dcate " 

197 U0SUB2tt99iPRINT"lugar deaonlaco. Inabltado e~iG0SUB2999t: 

PRINT"vazlo ou aasla parece..." 

2tt PRINT 
21t ' 
22t PRINT 
i'3* RANDOM 



24t MA-tiCA-tiG-ltttiMl-HX-t 

25t PRINT"9ual e' o »eu noae "> 

26t INPUTA* 

276 CLS 

277 PRINTiPRINTiPRWVOCE PRECISA SAIR DA ZONA PROIBIDA" 

278 PRINT"EM MENOS DE 2t MINUTOS" 

2Bt PRINT:PRINT"VOCE CARREGA Ittt DIAMANTES DE ORION" 

285 PRINT~PARA ABASTECIMENTO DA NAVE" 

29t PRINTlPRINTAil" . . . VOCE ESTA" A CAMINHO" 

3tt FORZ2-1TO1200INEXTZ2 

31 t G0SUB48t 

32t CLS 

33t PRINT~VOCE CHEGOU NA . . . ." 

34* PRINT 

35t PRINT"ZONA PROIBIDA 2" 

36t PRINT 

379 PRINT"VOCE ENCONTRARA ' VERMES." 

389 PRINT"LADROES. E DIAMANTES DE ORION . . . MAS CUIOADO" 

399 PRINT"ONDE PASSA " 

499 PRINT"CICLONES ESPACIAIS PODEM SER FATAIS ..." 

419 FORAB-1TO2000 

42* NEXTAB 

439 G0T01919 

44* FORZ2«34TO674STEP64iPRINT3Z2.CHR»(191))«NEXTZ2!FORZ2-631O703STEP64ip 

RINT3Z2.CHRV 191) > 1NEXTZ2«FORZ2=34T063:PRINT3Z2. CHR*< 191 ) | >NEXTZ2)FORZ2- 

649T0793iPRINTaZ2.CHR*<191)HNEXTZ2 

479 RETURN 

489 * 

499 F0RX-1T08 

599 F0RY-1T08 

519 F0RZ-1T02 

52* A<X,Y,Z>-RND<7> 

53t NEXTZ 

54t NEXTY 

559 NEXTX 

569 'CICLONES 

579 H»RND<3> 

589 F0RA-1T02 

599 F0RN-1TOH 

699 X-RND(B) 

619 Y-RND(B) 

629 A(X. Y. A)-8 

639 NEXTN 

A49 NEXTA 

659 'CAMINHOS 

669 S-RND<4>*2 

679 F0RA-1T02 

6B9 F0RN-1T0S 

699 X«RND<8> 

799 Y-RNDT8) 

719 A<X.Y.A)-9 

729 NEXTN 

739 NEXTA 

74t RETURN 

75t 'PASSAGENS 

769 Ll-Ll-1 

779 CLSIG0SUB449 

789 PRINT89."Voce cntn na PASSAGEM'i 

79* PRINT364."A Estrela do Poder abre o" I :PR INT312B, "caa mho "i 

U99 G0SUB449IG0SUBB9»9 

81* IFL1-0THENB70 

82t MA-*iK-0tK4«RND<4)«4 

839 CB>CA<K4 

84* PRlNT3192."Voce foi Jogado para ..."i 

845 PRINT9256,"a ZONA PROIBIDA l"r 

846 GOSUB 359*9 

859 F0RZ2-1T01***)NEXTZ2 



869 G0I0197* 

879 PRINT3136.".Voce encont rou. . ."> 

68* PRINT3192,"... a aalda da ZONA PROIBIDA. "i 

9*0 PR I NT 8256, "Voce teralnou coa "iGi 

905 PR INT332*, "Diaaantea de Orion.") 

996 GOSUB3509* 

910 G0SUB939 

920 GOTO1910 

930 GG-0»I**«REM ESCORE 

940 R-INT((GG»CA-7000«1J/M1> 

950 IFPEEK ( 16920) >-20THENR-0ELBEGOTO960 

960 PRINT37*4."0 cicore do Jogo fol i "iRi 

970 IFGC0 OR PEEK<16920>>-20 THEN4399 

989 PRINTa3B4."Voce preciaou de "»M1»" Jogadae") 

985 PRINTB448."para sair da ZONA PROIBIDA c "l 

999 PRINT3512."conaeguiu Diaaantea de "rCAl 

991 PRINTaS76."Verae< do Pavor.'i 

1*** RETURN 

1919 ' 

1929 C-RN0<8> 

1939 D-RN0<8> 

1949 A(C.D.2)«1 

1959 Ll-2 

196* K4-RND<4>.4 

1*79 ■ 

1*80 CLS 

1*9* A»A(C.D.L1) 

11*9 0-0-1 

111* ON A GOSUB 2229. 2289. 2349. 2349. 2399. 279*. 275t.28tt.3t8t 

112t ' 

113* IFG<-*THENIB2* 

1149 PRINr3768."E AGORA. "|A*»" ?"i 

1169 PRINT379B."<N>0RTE (L)ESTE (S)UL <0)ESTF"| 

1179 PRINTaB61."(E)NTRAR (M>APA (R)ESTO (T)EMP0"| 

1171 X°USR(256«3t*43> 

119t Ml>Ml.lUFK.tANDMl)-14t/LlTHEN421t 

1 190 Mlt-INKEY* 

1299 IFM1»«~N' THEN1299 

1219 IFM1*-"L"THEN1349 

1229 IFMH»'S"THEN1399 

123* IFM1«--"0"THEN144* 

1249 IFM1*-~E"THEN149» 

1250 IFMl*'"H"THEN16l* 
1269 IFM1$-"R"THEN1679 

1279 IF M1*-~T •THEN21990IPRINT 

1275 IF PEEK < 16920) >-2*THEN GOTO22000 

1289 G0T01195 

1299 'NORTE 

1300 IFA«7THEN1719 
1319 1F(D-1)-9THEN1989 
13;'0 0-0-1 

1339 OOT01979 

1340 'LESTE 

135* IFA-6TMEN177* 
136* IF<C*l)-9THEN2030 
1370 C-C»l 
1380 GOT01979 
1390 'SUL 

1409 IFA-7THEN1710 

1410 IF<D*1)-9THEN2050 
1420 0-0*1 

1430 GOTO1070 

1440 'OESTE 

1450 IFA-6THEN1770 

146* IF<C-1)=0TMEN2070 

1470 C-C-l 

1480 GOTO1070 

1490 ' 

1500 IFA< >9THEN1580 

1510 IFK-1THEN750 

1515 CLS 

1520 GOSUB440:GOSUB10*** 

153* PRINT864. "Voce nao pode entrar") 

154* PRINiai28.-po.» nao citi' coa a"» 

1541 PRINT3192. "Estrela do Poder"i 

1570 G0T01129 

1589 CLSi00SUB449iG0SU819599iPRINTa64.~Voce nao eata' na paaaagea"i 

16*9 G0T0112* 

161* CLSt 'MAPA 

162* IFMA-1THEN2V9* 

1639 G0SUB449sG0SUB19599iPRINT364."Voce nao eata' coa o aapa"> 

165* GOSUB440 

1669 GOTOU20 

1670 'DIAMANTES 0E LAZAR 

1680 CLS«GOSUB440«GOSUB9000:PRINTa64."Re»taa-lhe "iOi 
1690 PRINT3128. "D.aaantea de Orion"] 
17*0 GOTO 1129 

1719 'TURBILHAO LESTE-0ESTE 

1720 ' 

1739 CLSiQOSUB440!GOSUB6000iPRINT364."Vocc eata' nua Turbilhao'i 

1731 PRlNT3!2B.~)r«te-ocate e ao ' pode lr"| 

174* PRINT3192."para o Leate ou para o 0eate."i 

175* ' 

176* G0T0112* 

177* 'TURBILHAO N0RTE-SUL 

1780 ' 

1799 CLSiG0SU844t>G0SU86tttiPRINT364,~Voce eata' nua Turbllhao"! 

1791 PRINT3128."norte-aul e ao ' pode ir", 

18*9 PRINT8192."para o Norte ou para o Sul."i 

181* G0T0175* 

182* 'SEM DIAMANTES 

183* FORZ2-lT02***tNEXTZ2 

184* CLS:QOSUB44*>G0SUB9**« 

185* PRINTS*. "Voce perdeu todoa oa acua'i 

1851 PRINT364. "Diaaantea dc Orion. .."i 

186* PRINT3128.~e fol incapaz dc aalr da"i 

187* PRINT8192.~Z0NA PROIBIDA. "i 

1890 PRINT3320."Melhor *orte da proxlaa vez.'i 

1B95 GOSUB40000 

1900 GOSUB930 

191* ' 

1920 PRINT3834."9uer tentar de novo ?~l 

1930 PRINT3897. "Digite 'l'-SIM '0 , -NAO"i 

1931 PRINT3960." "i 
1940 INPUTAA 

1950 IFAA< HTHEN197* 

196* CLSIP0KE16921 ,*«P0KE1692*,*iP0KE16919.*:G0T021* 

197* CLSiEND 

1980 CLSlGOSUB440:GOSUB6500iPRINT30,"Vocc eata' no Caapo Magnet ico"i 

199* PR INT364. "Norte c nao pode ul t rapaa»a-lo"i 

2*1* PRINT3l92."Tente outra dlrecao."i 

2t2t G0T01129 



2939 
2949 

2959 
2969 
2970 
2080 
2090 
2100 
2105 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2120 
2130 
2149 
2159 
2169 
2179 
2189 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2270 
2289 
2290 
2300 
2310 
2330 
2340 
2350 
2360 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2460 
24B0 
2490 
2599 
2519 
2529 
2539 
2549 
2559 
2569 
257t 
2589 
2590 
2595 
2596 
2597 
2598 
2699 
2610 
2630 
2640 
2660 
2670 
2680 
2690 
2700 
2710 
2720 



CLS>GOSUB440iGOSUB6500iPRINT30.~Vocc eata' no Caapo 
PRINT364."Lcate e nao pode ultrapaaaa-lo"i IGOTO2010 
CLSlGOSUB440iGOSUB6500iPRINT8t."Vocc eata' no Caapo 
PRINT364,"Sul c nao pode ul t r apaaaa-lo" i IGOTO2010 
CLS>G0SUB44*iG0SUB65«*iPRINT3*."V6ce eata' no Caapo 
PRINT864."0eate e nao pode ul trapaaaa-lo'i IG0T0291* 
'MAPEAN00 
CLS 

G0SUB44* 

PRINTS*. "MAPA 0A ZONA PROIBIDA "iLl: 
PRINT312B."V ■ VERME DO PAV0R"i 
PRINT3192."0 > 0UA0RANTE VAZI0"j 
PRINT3256.'"' • UM LADRAO 0U UM CICL0NE") 
PRINT3320."PA r PASSAGEM PARA F0RA 0A Z.P."t 
PRINT33B4."NS - TURBILHAO NORTE -SUL" I 
PRINT3448."L0 - TURBILHAO LESTE -OESTE" s 
PRINT3512.-P1 - SUA LOCALIZALAO NA Z.P."| 
PRINT3165.""i 
F0R9-1TO8 
FORN-1T08 

IFC-N AND 0-0 THEN PRINT"Pl ";:GOTO2180 
S1-A<N.0.L1> 

ON SI GOSUB 3120.3120.3140.3140. J160. 318*. 32**.322*. 
NEXTN 

PRINt316S«64»0. — | 
NEXT9 
GOTO1120 
"0UAORANTE VAZIO 
GOSUB 440 : GOSUB 1 0500 

PRINT30."Voce eata' nua nuadr ant e"i 
PRINT364.". . . frio. eacuro e vazio."i 
RETURN 

'QUADRANTS VAZIO 
GOSUB440 i GOSUB 1 0500 

PRINT30,'Voce eata' nua quadrante"! 
PRINT364,". . . uaido. nebuloao e vino.": 
RETURN 

CLS>GOSUB4160 
H4-RN0<4> 

ON M4 GOSUB 325*. 338*. 355*. 36B* 
RETURN 

CLSlGOSUB44«IG0SUB7***:PRINT3*."H 
A(C.D.Ll)-2 
F0RZ2-lT05**iNEXTZ2 
G4-RND(35*/L1) 
Y-RND<8) 
IFY<-3THEN261* 

PRINT3128."Ele o aurpreende. . . "i 
PRINT3192."E coa deatreza.": 
PRINT32S6."rouba-lhc "|G4|" Diaaantea.") 
G-G-G4 

'PROCURA 00 MAPA 
IFMA-1THEN RETURN 
MA-RN0(4)UFMA<-2THENMA-1 
IFMA-1THEN257* 
RETURN 

PRINT3320."Vocc vasculha o quadrante e"t 

FORZ2-1TO509INEXTZ2 

PRINT3384."acha ua recip.ente"i 

PRINTa448."coa ua aapa da ZONA PROIBIDA' i 

PRINT3512."feito por algua Robinson "i 

PRINT3576,"Cruaoe Espacial. "i 

GOSUB 30000 

RETURN 

PR INT3128,"Voce surpeende o ladrao. Na"» 

PRINT3192."fuga ele deixa cair ">G4|" Dia-"« 

PRINT3256."aantca. Voce oa recolhe . " i iG-G«G4 

IFMA-1THENRETURN 
MA-RND(4)1IFMA(-2THENMA-1 
IFMA-1THEN2570 
RETURN 



Magnet 
Magnet 
Magnet 



ICO I 

ico" I 



a ladrao dc Centauro.") 



GOSUB449IGOSUB6990 
GOSUB4350«PRINT312B.~e entra n^ 



Turbilhao " I iPR INT3192. "nor t e-su I ' 



2730 GOSUB4330 
2740 RETURN 

2759 CLS 

2760 GOSU8440IGOSUB6000 
2770 GOSUB4350JPRINT312B. 



c entra nua Turbilhao "i IPRINT3192. "leste-oest 



Clclone'i I PRINT364. "Espacial") 



2780 GOSUB4330 

2790 RETURN 

28** 'CI CLONE 

28*5 GOSUB440IGOSUB75** 

2810 PRINT30."Vocc cntrou 

2820 FORZ2-1TO500INEXTZ2 

2830 TD-RND<4) 

284* IFTD>-3THEN289t 

2850 ' 

2860 PRINT3192."Maa deu ua Jelto para") 

2870 PRINT32S6."aair dele") 

2880 RETURN 

2890 IFL1-2THEN3000 

2900 L1"L1*1»K-1 

2910 PRINT3128."Vocc foi Jogado para") IPRINT3192. "ZONA PROIBIDA 2 ...r"i 

2920 G-G-500UFG<0THENG-0 

2930 F0RZ2-lT05ttiNEXTZ2 

2940 ' 

2950 PR1NT3256. "perdeu auitoa Diaaantea.") 

2970 PRINT3384,"Restaa-lhe ")G|" Diaaantea") 

29B0 PRINTa448."Mas voce ainda tea sua ") »PR INT3512. "Eat rel a do Poder.") 

2985 GOSU840000 

2990 RETURN 

3000 PRINTai2B.~Voce cntrou OENTRO do I '.i clone : 

3010 FORZ2-1TO5001NEXTZ2 

3020 PRINT3192."Maa tcve sorte e sua nave") 

3t3t PRlNT3256."nao foi atlnglda seriaaente") 

3050 FORZ2-1TO500INEXTZ2 

3060 PRINT3320."Maa na aalda voce pcrccbe "> 

3*70 GOTO4250 

3080 GOSUB440)PRINT3363.STRINGt<12.191)) 

3081 F0RZZ-77T0UBiSET(ZZ,6>iNEXTZZ«F0RZZ-6T026!SET(118.ZZ)iNEXTZZ 

3082 FORZZ-118T077STEP-USET<ZZ. 26 )«NEXTZZiFORZZ-26T06STEP-l«SET( 77. ZZ): 
NEXTZZ 

3083 PRINT80,"Voce eata' entrando") 
3090 PRINT364.~nuaa paaaagca") 
3110 RETURN 

3120 PRINT~0 "i 
3130 RETURN 
3140 PRINT"V ") 



32 
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33 



FUGA C6SMICA 



3150 RETURN 

3160 PRINT"? "t 

3170 RETURN 

3180 PRINT"NS "| 

3190 RETURN 

3200 PRINT"LO "l 

321* RETURN 

3220 G0T03160 

3230 PRINT"PA "i 

3240 RETURN 

3250 ' 

3260 PRINT3192,"que ««t»' cob f oae" i 

327* G0SUB3B1O 

3280 PRINTS320.~quc voce de ua pouco de Diaaente«"i 

3340 GOSU8402O 

3350 RETURN 

3380 ' 

3390 PRINT8i92."qu» nao eata' coi foBe"i 

3400 OOSUB3810 

3410 PRINTa320."que ele d« urn pouco de Diaaantea") 

3480 OOSUB3920 

3490 RETURN 

3S00 OOSU8480 

3510 H-U0-91U-8 

3520 B-4iE«5«R-14 

3530 C-0IPR-0 

3540 GOTO1010 

3550 ' 

3560 PRINT3192."que n»o eata" cob foae~j 

3570 OO9UB3810 

3580 PRINT3320."que «1« de ua pouco de Diaaantea'i 

3660 GOSUB3920 

3670 RETURN 

3680 * 

3690 PRINT3192."que nao eata' cob foae"l 

3700 GOSUB3810 

3710 PRINT8320."que ele de ua pouco de Du«jnte»"i 

3770 GOSUB3920 

3780 RETURN 

3810 ' 

3820 PRINT3256.'voee nao podcra Pttur ate'"i 

3830 RETURN 

3840 ' 

3850 RETURN 

3860 'ROTINA ALEATORIA 

3900 ' 

3910 RETURN 

3920 ' 

3930 G4-RND(400/L1>*25 

3940 G-G+G4 

3950 PRINT8384,"E voce ganhou "iG4i 

3960 PRINT3448.~Dlaaantea da Or ion. "i 

3970 A(C.0,L1»-1 

3980 CA»CA*1UFK«1THENRETURN 

3990 IFCA-K4THEN4110 

4000 IFL1-1THEN4230 

4O10 RETURN 

4020 " 

4060 G4-RND(350/L1> 

4070 G-G-04 

4080 PRINT8384 t "E voce perdeu "|G4| 

4090 PRINT3446,"Diaaantea dc Orion."; 

4100 RETURN 

4110 ' 

4120 K-l 

4130 PRINT3576,"Voce achou a Eatrcla do Poder"i 

4140 GOSUB3OO0O 

4150 RETURN 

4160 G0SU8440:G0SUB6600«PRINT30,~Voce laportunou ua Vara* do"i tPR INT864. 

~Pavor ncttc quadrantc. ele coar"i 

4170 ' 

4180 PRINT312B.~Diaaantc« de Orion c diz..."i 

4190 ' 

4200 RETURN 

4210 GOSUB4120 

4220 GOT01200 

4230 IFCA-CBTHEN4110 

4240 RETURN 

4250 G«G-500UFG<0THENG-0 

4260 PRINT83B4."qu« perdeu aultos "» 

4270 PRINT8448."dc aeua Diaaantce. Rcataraa-"| 

4280 PRINTB512."lh« "»G|" Dlaaantci dc 0rlon"[ 

4285 GOSUB 40000 

4290 RETURN 

4300 PRINT8384,"voce rcccbcu Dlaaantea dc "iCAj 

4301 PRINT3448."Veraea do Pavor...ca "jllli 
4310 PRINT3512."jo0edae."i 

4320 RETURN 

4330 PRINT3256,"0e astcroidca »c fechaa atra»"r «PRINTS320,"dc voce i 

4340 RETURN 

4350 PRINT30."Uoce atrevegsa uaa paeeagca'i tPRINT364. "entre o» aeleroide 

a"? 

4360 RETURN 

6000 AA-9BiB8-16»EE-14 

6010 F0RJJ-1T0EE 

6020 XX-AA»JJ»JJtYY-BB»JJ«SET(XX-l.YY)iSET(XX.YY> 

6030 YY-BB-JJ«SET(XX.YY)tSET(XX-l.YY> 

6040 YY-BB«SET<XX,YY)tSET(XX-l.YY> 

6050 XX-AAiSET(XX.YY)iSET(XX-l.YY> 

6060 YY-BBOJ:SET(XX.YY)lSET(XX-l.Yr> 

6070 YY-B8-JJiSET(XX-l.YY)«SET(XX.YY> 

6080 XX-AA-JJ-JJtSET(XX-l.YY>:SET(XX,YY> 

6090 YY-BBISET(XX-1.YY)«SET(XX.YY> 

6100 YY-BB«JJISET(XX-1.YY)»SET(XX.YY> 

6110 NEXTJJ 

6120 RETURN 

6500 KK*»STRlNG*(2B.153)»F0RZ3-OT0BtPRINT399»64«Z3.KI'- "NEXTZ3 

6510 RETURN 

6600 PRINT316B.CHR*( 171 )*CHR*< 1 72) »STR ING*( 12. 128>*CHR»( 168>*CHR*( 174>*C 

MR*(129>: 

6610 PR INT8232.CHR»(1 30) *CHR»< 139) »CHR»( 164 )*CHR*< 144 >*CMR*( 160) ♦STRING* 

(7.176>»CHR*(128>*CHR*(176>*CHR*(142>»CHR*(131>I 

6620 PRINT8299.CHR*(170>»CHR»<131)«CHR*<128)«STRINGK4.176)»CMR»(144)*CH 

R»(130)*CHR*(171>| 

6630 PRINT 8363.CHR*<149)*CHR»(128)*CHR»<128>+CHR*1141)*CHR»<136)*CHR* 

(141)«CHR»(136)*CHR»(133>»CHR*(12B)*CHR»(128)«CHR*(149)i 

6640 PRINT3426.CHR»(154)«CHR»(t28>»CHR»(160>»STRING*(7.176>»CHR»(128>*CH 

R*(138>*CHR*(144>| 

6650 PRINT34e9.CHR*(160)+CHR*(133)»CHR»(12B)*CHR*<I29)»CHR*(128)»CHR»(l3 

0)»CHR»<12B>«CHR»(128)*CHR»(130t*CHR*<12B>»CHR*<12B>*CHR»<l29>*CHR*<128) 



♦CHR»(163)| 

6660 PRINT8553.CHRK 150>*BTRING»( 12. 128>*CHR»( 130)*CHR*( 148) I 

6670 PRINT8617.CHRf<149)+8TRING*<13.12B)*CHR»<149)» 

6680 RETURN 

7000 PRINT8175.CHR»(137>*CHR»(176>*CHR»<176)*CHR*(152)*CHR»<129)| 

7010 PRINTai75*63,CHR*(136>*CHR*<179>*CHR»(136)*CHR*(136>*CHR*(162>*CHRS 

(153)1 

7020 PRINT3304,CHR*(I37)*CHR»(156)»CHR*<129)» 

7030 PRINT8365.CHR*(188)*CHR§(174)*8TRIN0*(4.131)*CHR*(171>»CHR1(172>*CH 

7040 PR INT8429.CHR»( 191 >*CHRS( 144 >*CHR»( 137) ♦<:»«*.( 144 >*CHRt( 128) *CHR»( 15 

2>»CHR»{129)»CHR*(186)*CHR*<149>t 

7050 PRINT8493,CHR*(131)*CHRl<128>*CHR*(168)*CHR»(150>+CHR*(131>*CHRl(tB 

8>*CHR*(128)*CHR»(130>*CHRt(129>| 

7060 PRINT855B.CHR*(16B>*CHR»(151>* CHR4C 128>*CHR*( 128)*CHR»( 13 

0)*CHR*(189>> 

7070 PRINT8621,CHR*(130>*CMR»(131>*CMR»(129>*STRINGa(3.128)«-CHR*(131>*CH 

R*(131)| 

70BO RETURN 

7500 PRINT8164.CHR»C172)*STRING*<3.140>*CHR»<156)»8TRING*(3.140)*CHR*(15 

6)*8TRING*<3,140)*CHR*(156>*8TRING*(3,I4O)*CHR*(156)*BTRING»(3.140)*CHR» 

(156)*CHR*(156>| 

7510 PRINT8229,CHR»< 139)«CHR*( 156) *CHR»( 164 ) *CHR»( 17B)*CHR§< 131 )*CHR*( 14 

0>»CHR*(164)*CHR»(178>*CHR»(131)+CHR*(140)»CHR*(164>+CHR»(178)*CHR*(131> 

*CHR»(140>*XHR»(164)*CHR«(178>*CHR»(i31)*CHRt(140>*CHR*(164>*CHR»(134>i 

7520 PRINTa294.CHR*<130)»CHRt(I72)*CHR»(176)*CHR*(147)*CHR*(137>*CHR»(14 
0>*CHR*(176>+CHR»(147>*CHR»(137>*CHR1(140>*CHR»(176>*CHR»(147)*CHR*(137> 
♦CHR*(140)*CHR*(176)*CHR»(147)*CHR*(153)»CHR*(129>| 

7530 PRINTa360.CHR»(137>*CHR*(178>*CHR»(131>*CHR*(140>*CMR*(164>*CHR»(17 

B)*CHR*( 131 )*CHR*( 140>*CHR*< 164)*CHR*< 178>*CHR*( 131 >*CHRS< 140>*CHR*( 164) 

♦CHR*(134>| 

7540 PRINT8425.CHR*(130>*CHR»<167)*CHR*<153)*CHR*(140)*CMR*(176)«CHR*(14 

7)*CHR»<137>*CMRt<140>*CHR»(176)*CMR»(147)*CHR«<153)*CHR*<129)i 

7550 PRINTa491,CHR*(139>«CHR*<156)»CHR»(164)*CHR»<17B)»CHR»(131)*CHR*(14 

0)*CHRS(164>+CHRft<134> i 

7560 PRINT8556.CHR*<130)*CHR*(172)*CHR*<176>*CHR»(147>»CHR»(153>*CHR»(12 

9)1 

7570 PRINTa622.CHRi<137)»CHRt<134>s 

7580 RETURN 

8000 UU»-STRING*(2B, 191) 

8010 PRINT399,HU*tiPRINT3611.UU*|iNN-35iHH-611i00-62iPP-638i00SUBBei9 

8011 PRINT3163.UW*|iPRINT3547.UU»|iNN-37iMM-613iOO-60iPP-636»GO8UB8019 

8012 PRINT3227.UU*! IPRINT8483.UW*| INN»39IMH-615I00-58«PP-634IG0SUB8019 

8013 PRINT3291.UU4HPR1NT a419,lflrtl tNN-41 iMH-617i00-56iPP-632iG0SUBB01 

9 

8014 PRINTa355.UU»|iPRINT3355.UU*|iNN-42iMM-619iOO-54iPP-630iGOSUB8019 

8015 RETURN 

8019 F0RZZ-1T050JNEXTZZ 

8020 F0RZZ-NNT0MMSTEP64IPRINT3ZZ.CHR»(191)|iNEXTZZiF0RZZ-NN*lT0HM*lSTEP6 
4iPRINT3ZZ.CHR»(l91>|iNEXTZZiF0RZZ-NN*2T0MH*2STEP64tPRINT3ZZ.CMR*(191)|i 
NEXTZZiF0RZZ"OOT0PP8TEP64iPRINT3ZZ.CHR»(191>|iNEXTZZ«F0RZZ-0O-lT0PP-lSTE 
P64«PRINT aZZ.CHR«<191)| 

8021 NEXTZZlF0RZZ-0O-2TOPP-2STEP64iPRINT3ZZ.CHR*<191)HNEXTZZ 

8022 F0RZZ-lT050«NEXTZZiRETURN 
9000 PRINT3103. "DIAMANTE OE ORION") 
9010 PR INT3237 , CHR*( 160 ) +STR ING* ( 5. 176) I 

9020 PRINTS298.CHR*(176>*CHR»(140>*CHR*(131>«CHR*(129>«CHR»(176>»CHRS(14 
0)*CHR*(140)*CHR»(164)*CHR»(144)+CHR*(131>*CHR»(137>*CHR»<164)*CHR*(144) 

9030 PRINTa361.CHR*<l30>*CHR*(172)*CHR*<164)*CHR*<176)*CHR*<146)*CHR»(14 
0)*CHR*<140)*CHR*<140)*CHR»(140)«CHR*<134>*CHR»(176)»CHR»(176>*CHR*(172) 

»CHR»(134>j . . 

9040 PRINT3427,CHR»<137)»CHR»(144>»CHR»(13B>*CHR*(147>*CHR*(131>*CHR»(13 

1 ) »CHR»( 131 )*CHR*( 155)*CHR*( 128>»CHR*( 152)*CHRt< 129) i 

9050 PRINT3492.CHR»(130>*CHRS(164>*CHR»(130>*CHR1(164)*CHR*(160>«CHR*(13 

4>*CHR»(160>*CHR*( 134)1 

9060 PRINT355B.CHR*(137>*CHR»(144>*CHR»(129)+CHR»(152>*CHR»(129>| 

9070 PRINT3623.CHR*(130>*CHRS(134>| 

9080 RETURN 

10000 PRINT3177.CHR*(160)*CHR»(144>I 

10010 PRINT3241.CHRS<170)*CHRt(149>| 

10020 PRINT33O4,CHR»<1B4)«CHR»U90)*CHR*<189)*CHR*<180)| 

10030 PRINT3362.CHR*<160)*BTRING»(3.176>*CHR»(184)*CMR*(151)*CHR*(163)*C 

HR»<t55>*CHR»(167)»CHR*<147)*CHR»(171>*CHR*(180)»CHR»(176)*CHRa<176)*CHR 

1(176>+CHRS<144)| 

10040 PRINT3426.CHRt(130>*STRING*(3.131)*CHR»(139)»CHR*(lBl)*CHR»<17B)»C 

HR*( 1B5)*CHR*( 182)«CHR*< 177 )»CHR*( 186>*CHR»( 135)*CHR*( 131 )*CHR»( 131 )*CHR 

«<131)*CHRt<129) t 

10050 PRINT8496.CHR1<139)*CHR*(175)*CHR»<159)*CHR*(135)| 

10060 PRINT3561.CHR*(170)*CMR*<149)| 

10070 PRINT3625.CHRV 130)*CHRt< 129) I 

10080 PRINT8106,"E8TRELA 00 P00ER"l 

10090 RETURN 

10500 DO-RND(10>IXX>RND<1O)><->V-RNO<12> 

10510 PRINT8171*DD.CHR»( 132) I IPRINT3238*XX, CHR*( 129) i «PRINTa355*VV.CHR*( 

130>|iPRINTa559*XX.CHR*<132)HPRINT3612*OO,CHRt(l32>|iPRINTa429*DD.CHR*l 

129)1 

10520 RETURN 

20000 F0RSS-1T0590INEXTSS1RETURN 

21000 CLSiGOSUB440tOOSUB10500 

21010 HH-PEEK ( 16921 ) IMH-PEEK ( 16920 ) ISS-PEEK (16919) 

21020 PRINTai28."Rcataa-Ihc "iHHi"i~H9-HMi"i"i59-8Si 

21025 Ml-Hl-1 

21030 GOTO1130 

22000 CLSGOSUB44OIGOSUB1050O 

22010 PRINT864."0 acu tcapo tcramou"? 

22020 G0T01860 

30000 J-USR ( 256B4 ) « J-U8R ( 256B4 ) i J-USR ( 25684 ) i J-U8R ( 106 ) 

30010 J-USR (25694 ) I J-USR (25694 ) I J-USR ( 25694 > t J-USR (112) 

30020 RETURN 

35000 J-USR ( 12900) I J-USR ( 12894 ) I J-USR (15444) I J-USR ( 30783) • J-USR ( 12912) » J 

-USR ( 12900) i J-USR (25694 ) I J-USR (12912) I J-USR ( 12900 )» J-USR (15454) I J-USR (30 

777 ) « J-USR ( 12875 ) « J-USR ( 12867 > 

35005 J-USR ( 1 7983 ) I J-USR ( 1 7977 ) i J-USR (25651 ) 

35010 J-U8R ( 1 2900 ): J-USR (12894) I J-USR ( 15444) I J-USR (30783) I J-USR (17977) I J 

-USR ( 17971 ) I J-USR (30768) I J-USR (12B51) I J-USR (12857) I J-USR (12851) I J-USR (12 

B57) IJ-USR(12B51)«J-USR(14137)U-USR(63) 

35020 RETURN 

40000 J-USR ( 20606 > t J-USR ( 308 14)1 J-USR ( 20580 ) I J-USR ( 30814 ) t J-USR ( 20555 ) i J 

-USR ( 30804 ) i J-USR ( 20574 ) • J-USR ( 30804 ) I J-USR ( 1 2875 ) • J-USR ( 1 2884 ) ■ J-USR ( 30 

814)1 J-USR ( 30795 > • J-USR ( 20543 ) I J-USR ( 30777 ) I J-USR ( 20537 ) 1 J-USR ( 30783 ) > J- 

USR ( 20555 ) i J-USR ( 30795 > 

40010 J-USR ( 20574 ) I J-USR ( 30804 ) I J-USR ( 20574 ) I J-USR ( 30804 ) i J-USR ( 12875 ) i J 

-USR ( 12884 ) i J-USR ( 3081 4 > I J-USR ( 20592 ) I J-USR ( 30832 ) ■ J-USR ( 20606 ) I J-USR ( 94 

) 

40020 RETURN 



SUPRIMENTOS PARA CPD FILCRES: 



SOLUQOES NA MEDIDA EXATA DE SUAS NECESSIDADES. 





A Filcres tern sempre em estoque e para pronta entrega tudo o que 
voce precisa para o seu CPD: fitas impressoras, formulcirios, 
diskettes, e mais uma infinidade de outros acess6rios. 
E conta ainda com uma equipe de profissionais altamente 
qualificados, prontos a Ihe prestar o melhor atendimento, 
Tudo isso com a qualidade que v. exige e urn prego sempre 
compati vel com seu orgamento. 

E so teiefonar e esquecer seu problema. /li>f/VtV 

A Filcres leva o suprimento que falta ate voce. OjO T**^ 




ejfrto- 



Fuga Cdsmica 
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AJUDANDO A DESENVOLVER TECNOLOGIA 

Rua Aurora. 165 - SP - Tel. PBX (011)223 7388 -Telex (011)31298 Direto - SP -223-1446/ 
222 3458/220 91 13/220 7954 D.reto outros Estados: 222-5430/221-0326/223-7649/222-0284 



apple apple apple appl 






D 



Orbita 



Mario Folli 



Escrito para microcomputadores da 
linha Apple, Orbita e um jogo em que 
voce deveii rastear e destruir os satelites 
espiOes inimigos que orbitam uma nova 
estrela conquistada pelo homem do se- 
culo XXI. 

Voce possui quatro naves radares, 
que posicionam a mira sobre o alvo. a 
fim de dispararem seus raios destruido- 
res. 

Nao hi limite de tiro, podendo-se 
disparar diversas vezes sobre o mesmo 
satelite, mas este na"o e um bom procedi- 
mento, pois um ponto sera" decrescido 
do seu placar a cada disparo. 

A cada satelite atingido, voce recebe- 
ra um bonus de dez pontos, porem per- 
dera tres, caso o satelite escape de sua 
perseguicao. 

jogo se encerra quando vinte sateli- 
tes conseguirem furar o seu esquema de 
defesa. 

PROG RAMA 

A velocidade de processamento 6 ra- 
zoavel, se considerarmos que se trata de 
um jogo com movimentacSo de figuras e 
escrito em BASIC. No entanto, sera par- 
ticularmente interessante compila-lo 



quando voce ja estiver craque e desejar 
que lhe sejam exigidas ac6es mais rapi- 
das, aliadas a uma boa dose de reflexos 
e coordenacjio de teclas. 

Na compila^ao, e recomendavel que 
se altere o loop vazio FOR/NEXT da li- 
nha 2500, de 30 para 40 vezes, para que 
as velocidades dos satelites nao sofram 
varia^Oes quando sua mira estiver parada 
na tela. 

PARTES DO PROGRAMA 



50-98 
210-300 



350-380 
400-440 
500-650 
700-850 



1000-1160 



InstrucSes do jogo 
Deflnicao das velocidades 
dos satelites, posicao on- 
de surgirSo no video e os 
tipos de satelites (total 
de seis). 

Finalizacao de uma par- 
tida 

Rotina que altera a estre- 
la no centro do video 
Movimentacao dos sateli- 
tes na horizontal 
Movimentacao dos sateli- 
tes na vertical 
Format ac^o das figuras 
utilizadas, a partir do en- 
dere?o 24576 (decimal) 



= inicio da pagina 2 de 
alta resolucao 

1500-1580: Rotina que desenha a te- 
la de jogo 

2000-2500 : Rotina de posicionamen- 
to da mira 

VAR1AVEIS UTILIZADAS 

V% : Velocidade das naves satelites 

L% Lado da tela em que os sateli- 
tes surgirao 

N% : Tipo de nave satelite que ira" 

surgir 

S% : Contador de naves satelites 

P% : C6digo das teclas pressionadas 

PT% : Pontos marcados 

RE% : Placar recorde 

NL% : Naves satelites nao atingidas 

XI% : Posi?ao horizontal inicial 

XF% : Posicao horizontal final 

YI% : Posicao vertical inicial 

YF% : Posicao vertical final 

Mario Folli 6 Engenheiro Civil, formado 
pela E sco la de Engenharia Maui. Atualmente, 
trabalha como Analista da Area de Repasses 
do Banco Itau, onde desenvolve sistemas em 
microcomputadores Itautec. Ele tambem 6 
Instrutorde linguagem BASIC, na S.O.S. Com- 
putadores, e usuirio de um Apple II. 



50 REM APPLE II • ORBITA • OUT/ 

85 « MARIO FOLLI » 
60 HGR t TEXT : HOME : INVERSE 
70 PRINT l PRINT SPC< 14>|"0 R 

b i t a": spc( 15) « normal 
80 print : print "seu 0bjetiv0 n 

este jogo, e' a destruica0de 
satelites espioes sue orbit 

am uma no-va estrela conquis 

tada pelo homem." 
82 print "para cumprir esta miss 

ao.posicione a mi-ra e dispa 

re raios contra os estranh0s 

84 print "o j000 termina ouando 
20 satelites esca-parem de s 
ua perseguicao. "« gosub iooo 

86 vtab 12« htab ii inverse » print 

SPC( li)»"TECLAS UTILIZADAS 

"l SPC< 12)! NORMAL » PRINT 
SPC< 40 )| 
88 PRINT "AJCIMA ZlBAIXO <-«ES 

0. ->iDIR. BEiTIR0"i SPC( 40 

)»« INVERSE 
90 PRINT SPC< 11>»"P N T U A 

C A 0"i SPC< 12) « NORMAL 
92 PRINT « PRINT SPC( 3)"SATELI 

TE ATINGIDO *10 PONTOS" 

94 PRINT SPC( 3)"SATELITE ESCAP 

A -03 PONTOS" 

96 PRINT SPC< 3)"TIR0 DISPARAD0 

-01 PONTOS" 



98 GOSUB 1500: INVERSE : PRINT » 
PRINT " PRESSIONE OUALOUER 
TECLA PARA INICIO ";« VTAB 
2> HTAB 20: GET AH NORMAL I 
HOME 

100 POKE - 16304.01 POKE - 162 
97, 0J POKE - 16300,01 REM 
RECUPERA PAG.l ALTA RES. 

200 VTAB 22: HTAB 5: PRINT "PONT 

OSi"iPTX»" "»« HTAB 30i PRINT 
"•ORBITA": HTAB 5: PRINT "RE 
C0RDi"»REXj: HTAB 30: PRINT 
"NAVES: "; NLX »: GOSUB 400 

210 VX - RND (1) • 6: IF VX < 2 THEN 
210 

220 LX - RND (1) • 51 IF LX - THEN 
220 

230 NX - RND <1) • 7i IF NX = THEN 
230 

240 SX - SX ♦ HVX = VX + <SX > 1 
5) + (SX ) 30) 

250 IF NLX « 20 THEN 350 

300 ON LX GOTO 500,500,700,700 

350 FLASH l VTAB 21* HTAB 5* PRINT 
" FIM DE JOGO : OUTRA VEZ iS 
/N>?"|* GET A*: IF At = "N" THEN 
TEXT I HOME I NORMAL * END 

360 IF A* < > "S" THEN PRINT CHR* 

<7>i GOTO 350 
370 IF PTX > REX THEN REX - PTX 
380 NLX - 0IPTX - 0* HOME : NORMAL 

: GOTO 200 
400 REM MODIFICA A ESTRELA 
410 FOR I = 1 TO 3*H% = RND (1) 



500 
510 



520 
530 



540 
550 



560 
600 



630 

650 



• 7ISX - RND (1 ) • 15* IF 
SX = THEN SX « 15 
HCOLOR- HX: SCALE- SX« FOR J 

« O TO 64 STEP 4* ROT- J* DRAW 
7 AT 140.80< NEXT 
POKE 0.5 ♦ INT ( RND (1) « 
100): POKE 1.5 ♦ INT ( RND 
(1) • 30): CALL 771: NEXT 
SCALE= II HCOLOR- 3* ROT- 0: 

RETURN 
REM ESOUERDA <--> DIREITA 
YNX - RND (1) • 140: IF YNX < 

21 THEN 510 
XIX = 50:XFX = 230 
IF LX = 2 THEN VX - - VX:XI 
X - 230*XFX - 50 
FOR M - XIX TO XFX STEP VX 
XDRAU NX AT M,YNX«PX - PEEK 
< - 16384): IF PX - 160 THEN 
610 

GOSUB 2100 
XDRAW NX AT M.YNX* NEXT :NLX 

- NLX ♦ i:PTX - PTX - 3: GOTO 
200 

POKE 0,200: POKE 1.8: CALL 7 
711 SCALE- 3* XDRAW 1 AT XX, 
YX* POKE 0,100: POKE 1.8: CALL 
771 i XDRAU 1 AT XX. YX* SCALE- 
UPTX - PTX - 1 
IF M > XX - 5 AND M < XX + 5 

AND YNX > YX - 5 AND YNX < 
YX ♦ 5 THEN 650 
POKE - 16368, 0* GOTO 600 
PTX - PTX + 10: FOR I - 1 TO 



5* SCALE- H XDRAW NX AT XX, 

YX: POKE 0,1 • 101 POKE 1.5* 
CALL 771* XDRAU NX AT XX, YX 

: NEXT * SCALE- H POKE - 1 

6368,0: XDRAW NX AT M.YNX* GOTO 

200 
700 REM CIMA/BAIXO BAIXO/CIMA • 
710 XNX - RND (1) • 230* IF XNX < 

51 THEN 710 
720 YIX - 20*YFX - 140 
730 IF LX - 3 THEN VX - - VX:YI 

X - 140IYFX - 20 
740 FOR M - YIX TO YFX STEP VX 
750 XDRAU NX AT XNX.M:PX - PEEK 

( - 16384)1 IF PX - 160 THEN 

810 
760 GOSUB 2100 
800 XDRAU NX AT XNX,M« NEXT INLX 

- NLX ♦ 1»PTX - PTX - 3* GOTO 

200 
810 POKE 0,200: POKE 1.8* CALL 7 

71* SCALE- 3t XDRAU 1 AT XX, 

YX* POKE 0,100: POKE 1,8* CALL 

7711 XDRAU 1 AT XX, YX* SCALE- 

UPTX - PTX - 1 
820 IF M > YX - 5 AND M < YX ♦ 5 
AND XNX > XX - 5 AND XNX < 

XX + 5 THEN 850 
830 POKE - 16368,0: GOTO 800 
850 PTX ■ PTX ♦ 10i FOR I - 1 TO 

5* SCALE- I* XDRAU NX AT XX, 

YX: POKE 0.1 « 101 POKE 1.5* 
CALL 771* XDRAU NX AT XX, YX 

i NEXT * SCALE- 1* POKE - 1 

6368,0: XDRAU NX AT XNX.M* GOTO 

200 
1000 REM FORMATACAO DAS FIGURAS 

1010 DATA 173,48,192,136,208,4, 

198 , 1 , 240 , 8 , 202 , 208 , 246 , 166 . 

0.76,3,3,96 
1020 DATA 10.0,22.0,44,0,74,0,1 

06,0,136,0,172.0,203,0,209,0 

,230,0.251,0 
1030 DATA 9,45,61.63,60,60,36,5 

2,54,55.55.63,47,45,46,46,54 

.38,36,37.37,0 
1040 DATA 33,36,60.44,53,55.54, 



63,63.55,39,44,46,45,54,54,6 
2,46,37,39,36,45,45,37,53,62 
,60,63,4,0 

1050 DATA 42.53,54.45.61.63,36, 
36 , 36 , 36 . 45 . 6 1 , 63 , 54 , 62 , 63 , 3 
9,36,63,47,45,54,54,54.54.63 
,47.45,36,44,5,0 

1060 DATA 36,36,45,60,63,55.45, 
54,54,55,55,63,36,55,54,46,3 
6,45,44,44,53.53.45,36,53,54 
,62,36,7,0 

1070 DATA 45,45,36,53,54,62,36, 
63,63.36,36,63,44.45,53,63,5 
4,54,63,63,54,39,36,44,54,45 
.45,54,54,63,46,45,37,63,4,0 



1080 



1090 
1100 



1130 
1140 



1160 
1500 
1510 



1520 
1530 



DATA 45,45,53,54,39,36,63, 
63,63,63,39,36,53,54,45,45,3 
6,36,44,45,62,63,54,54,54,54 
,62,63,44,45,0 
DATA 33,63,54.45,4,0 
DATA 38,45.53.9,52.27,36,3 
9 , 39 , 39 , 52 , 62 , 62 . 62 . 54 , 27 , 52 
,9.44,45,0 

DATA 52,63,39,27,38,9.54,5 
3 , 53 , 53 , 38 , 44 , 44 , 44 , 36 , 9 , 38 , 
27,62,63.0 

DATA 52,38,47,61,13,9.36,3 
6.63,63,63,63,54.54,54.54,45 
,45,45.45,36,36,0 
FOR I - 771 TO 789* READ AX 
* POKE I,AX« NEXT * PRINT 
PX - 16384* FOR I - 1 TO 274 
: READ AX* POKE PX,AX«PX - P 
X ♦ 1* PRINT "."»« NEXT 
POKE 232,01 POKE 233,64: REM 
ENDERECO DAS SHAPE TABLES 

16384/256-64 
RETURN 

REM DESENHA TELA INICIAL 
HCOLOR- 3i HPLOT 30,0 TO 25 
0,0 TO 250,159 TO 30,159 TO 
30,0 TO 45.15 TO 235.15 TO 2 
35,145 TO 45,145 TO 45,15 

FOR I - 1 TO 100 
XX = RND (1) • 235* IF XX < 
45 THEN 1530 
YX - RND (1) • 145* IF YX < 



15 THEN 1540 

1550 HPLOT XX, YX* NEXT : ROT- 0: 
SCALE- 1 

1560 HPLOT 250,0 TO 235,15* HPLOT 
250,160 TO 235,145* HPLOT 30 
.160 TO 45,145: HCOLOR- 6 

1570 FOR Y - 15 TO 145: HPLOT 1, 
Y TO 21, Y * HPLOT 259. Y TO 27 
9,Y: NEXT IXX - 140:YX = 80 

1580 XDRAU 8 AT XX, 155* XDRAU 9 AT 
XX,5: XDRAU 10 AT XX, YX* ROT- 
16: XDRAU 8 AT 35, YX: XDRAW 
9 AT 245. YX: ROT- 0:NLX - 0* 
PTX = 0:NX = 0: RETURN 

2000 REM MOVIMENTOS DA MIRA 

2100 IF PX = 136 AND XX > 50 THEN 
XDRAW 9 AT XX, 5* XDRAW 8 AT 
XX, 155* XDRAW 10 AT XX.YXiXX 

- XX - 5» XDRAW 9 AT XX. 5* XDRAW 
8 AT XX. 155: XDRAW 10 AT XX, 

YX* RETURN 
2200 IF PX » 149 AND XX < 230 THEN 
XDRAW 9 AT XX. 5: XDRAW 8 AT 
XX, 155* XDRAW 10 AT XX.YXiXX 

- XX + 5: XDRAW 9 AT XX, 5i XDRAW 

8 AT XX, 155: XDRAW 10 AT XX. 
YX* RETURN 

2300 IF PX = 193 AND YX > 20 THEN 

ROT- 16: XDRAW 8 AT 35, YX: XDRAW 

9 AT 245, YXi ROT- 0i XDRAW 1 
AT XX,YX*YX - YX - 5: ROT- 
161 XDRAW 8 AT 35. YX: XDRAW 
9 AT 245, YX* ROT- 01 XDRAU 1 
AT XX, YX: RETURN 

2400 IF PX ■ 218 AND YX < 140 THEN 

ROT- 161 XDRAU 8 AT 35.YXI XDRAU 
9 AT 245, YX* ROT- 01 XDRAU 1 
AT XX.YXiYX - YX ♦ 51 ROT- 
16i XDRAU 8 AT 35,YXi XDRAU 
9 AT 245, YXi ROT- 0: XDRAU 1 
AT XX, YX* RETURN 

2500 FOR F - 1 TO 30: NEXT I RETURN 
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PROGRAMA PARA TK 2000 
ClENCIA MODERNA DE COMPUTAQAO LTDA. 

Av. Rio Branco, 1 56 - Sub-Solo - Loja 127 - CEP 20.043 - Centro - RJ 
Tels.: (021 ) 262-5723 ou 240-9327 

«l 0-O*-*" DOOUft POM 

wi *io*t c»w*r«»MPO i«v»i 

Oil ALIftH *l*JN lOftftTBO* O' 



11 MlNuftCm**' 



TACULOft CO* UU 



:iomm. Fvooofnt m i 

0»7 »Lt*«**M* I »**0IClOM*C HlPfMI KM I 

070 CriUNt ZIBO (MtTlfUA OS DlftCOb VO*DO*I1< KM i 

07* QOHOVU I'ftCMft KkMlLliaO PHlMKlKOi KM I 

030 MMMMAM '•Oift.i- VC*»*0 AWAMCMMi KM I 

031 tUICtDIO i*jf«JHJ ftUlCIft* ft* MOMTKi KM I 
037 KltXINIToa IVOCft IN »KOfD OK b« KOMBAMOKIBO KM 

Mt« 0* BO* MMCAOI in I 

033 M10MT MlftSlOMiNOV* VftaftAO DO PlMKACt.1 CM i 
03« *uO-*T»*C* IftKMftACIOMM. OAKft KVMK O *T*«uft OAK 

MAMMAS R OUtMOK lt«(S> KM I 
OM AftTIMOIH <»A«M MLO CAMTO M AftTKMOlMB. Ml 

t*UI«0O-O*i K» I 

03* KMAM-MMIK roA-ut* 1 COM BlVftMftO* CINCUlTOBi KM ■ 

03* ftMACK KOOft HAftULOKQ OAMtDftCTBUA OK OVOK KBT AC I - 



.UL*-A*A«U 



»if«!M NA BABK lUMMi 



OA3 KftAAOACMl 

■-->•* QftAtM |tAJ 

04" CSCALABA 



KM ■ : •* >0 
KM »H» 30 
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Oesejo receber os segumtes programas pelo(s) qualds) pagarei a quantia de Cr$_ 



N9s PROGRAMAS: 

NOME: 

END.: 

CI DADE: 



UF.: 



CEP: 



Para tal estou enviando um cheque nominal a Ciencia Moderna de Computacao Ltda. enderecado a ATI. Av. Presidente Wilson. 165 
Grupo 1210 - Centro. CEP 20.030 Rio de Janeiro-RJ. Despesas de Correio inclusa. 
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programa que apresentamos a se- 
guir, ilustra como uma ideia simples po- 
de dar origem a um jogo de razoavel 
complexidade. Uma das coisas mais tri- 
via is que se pode pensar, ao fazer um jo- 
go, e num atirador e num alvo. Obvia- 
mente, nesses casos, o usuario costuma 
fazer o papel do atirador. Em nosso 
exemplo, usamos um navio Ian?ando 
cargas em profundidade num submarino. 

Um pouco mais dificil e engendrar 
uma forma de fazer com que o usuario 
tenha que pensar antes de dar seu tiro. 
Em nosso jogo e praticamente inevitavel 
o uso do fosfato cerebral! usuario e 
obrigado a pensar para obter exito (e is- 
so, para muitos, doi!). 

A ideia por trds de-tudo e bastante 
simples. Para atingir o submarino, o usu- 
ario deve dar a posicao em que a carga 
sera lancada e isso e feito atraves da in- 
troducao de tres numeros: um que indi- 
que a posicao na direcao Norte-Sul, ou- 
tro que indique a posicao na direcao 
Leste-Oeste e um terceiro indicando a 
profundidade em que a carga devera ex- 
plodir. 

submarino e colocado, ao acaso, 
dentro de uma regiao ciibica de 8 Km na 
direcao Norte-Sul, 8 Km na dire$a"o Les- 
te-Oeste e 4 Km de profundidade. Nessa 
mesma regiao, esta colocado tambem o 
navio lan<pador de cargas. Observe a figu- 
ra 1. 

Note que o navio sempre fica no ver- 
tice do paralelepfpedo formado pela re- 
giao de 8x8x4 quilometros cubicos e 
que o submarino e sempre colocado nu- 
ma posicao de coordenadas inteiras. Por 
exemplo, ele nunca vai estar em uma 
profundidade de 2,5 Km (estara a 2 ou 
3 Km). 

Ao ser executado, o programa pede a 
introducao dos tres numeros indicadores 
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Figura 1 - O navio e o submarino esido numa regiao de 8x8x4 Km . 




Figura 2 

da posicao. Inicialmente, a distancia ao 
longo da direcao Norte-Sul (N/S), de- 
pois a distancia ao longo da direcao Les- 
te-Oeste (L/O) e, finalmente, a profun- 
didade (P). primeiro tiro deve ser da- 
do ao acaso. Lembre-se que os valores 
para N/S e L/O devem estar entrc e 8, 
e os valores para P devem estar entre e 
4. Caso esses limites sejam desrespeita- 
dos, o tiro sera perdido. 

Como resposta a cada tiro, o progra- 
ma da uma dica ao usuario: a distancia a 
que a carga explodiu do submarino. Essa 



distancia e calculada atraves do "Teore- 
ma de Pitagoras" aplicado a um espaco 
tridimensional (Teorema de "Tritago- 

ras"). A ilustracao do teorema pode ser 
vista na figura 2. 

£ a partir dessa informac^o que os ti- 
ros subsequentes devem ser dados. Por 
exemplo, imagine que seu primeiro tiro 
tenha sido B S [3] e que a dis- 
tancia obtida como dica tenha sido 4. 
Isso significa que a distancia em que a 
carga lan?ada explodiu do submarino foi 
de 4 Km. 

segundo lancamento ja deve ser fei- 
to no sentido de verificar a posicao do 
submarino numa dada direcao. Conside- 
rando ainda a situacao exemplificada an- 
teriormente, suponha que queremos ve- 
rificar profundidade. Basta manter os 
numero N/S e L/O e alterar - para mais 
ou menos - o numero P. Por exem- 
plo, imagine que fizemos o lancamen- 
to 51 IS (3 e que recebemos a di- 
ca 5.196. Isso significa que nos afasta- 
mos da posicao procurada e e conveni- 
ente tentarmos outro sentido. 

Se tentarmos o lancamento @] [TJ [4] 

MICRO SISTEMAS, Janeiro/86 



e obtivermos o mesmo numero como 
dica (5.196), podemos entao concluir 
que a profundidade do submarino e de 3 
Km. Agora, devemos fazer o mesmo 
com os numeros N/S e L/O. 

Depois de algumas partidas mal suce- 
didas, voce achara o caminho certo para 
destruir o submarino. Eventualmente, 
apos adquirir bastante pratica, o leitor 
pode tentar alterar dois ou tres numeros 
de uma so vez. 

Vamos, agora, completar o programa 
de modo a sofistica-lo um pouco. Antes, 
porem, analisemos suas partes princi- 
pals: 

Inicializacao - Esta parte faz a apre- 
sentac^o na tela, recebe o nome de joga- 
dor atraves do teclado e sorteia a posi- 
530 do submarino na regiao delimitada 
para o jogo. O sorteio e realizado atraves 
da funcao RND. Como a posicao do sub- 
marino e dada atraves de tres numeros, 
basta fazer um sorteio para cada um de- 
les (veja as linhas 80 a 100). Se voce" qui- 
ser alterar a regiao onde o submarino 
pode estar, basta mudar os numeros 9 e 
5 nas linhas 80. 90 c 100. 

Lancamentos - Esta parte recebe os 
dez lancamentos do jogador. Cada lanca- 
mento necessita da introducao de tres 



1* COLOR 4.7ISCREEN •■WIDTH 38 

2* PRINT~BATALHA NAVAL TR I -DIMENSIONAL " 

5» PRINTiPRINT"OIOITE SEU NONE ALMIRANT 

El~ 

6« INPUT N* 

7« CLS 

B« LET L0»-INT(RND(-TIHE)»9) 

9» LET NS6-INT(RN0(-TIME)«9) 

!•• LET P»-INT(RND(-TinE)«5) 

11* LOCATE 2,1«PRINT"ALMIRANTE«">N* 

12» LOCATE 2.4iPRINT"TIR0 L/O N/S 

P - DISTANCIA" 
13« FOR T-l TO 1* 
»•»• LOCATE 3.T*3iPRINT T 
13© LOCATE ll.T+9 
16* LINE INPUT LOS 
17« LOCATE 17,T»5 
1B» LINE INPUT NS* 
>?• LOCATE 22,T*3 
2M LINE INPUT P* 
21« LET DLO«WAL(LO*)-LOe 
22» LET DNS-WAL(NS*)-NSe 
23« LET DP-VAL(P*)-P« 
24» LET 0-INT( . 5*l«»»»SOR ( DLO»DLO*DNS»D 

ns»dp»dp) )/i«ee 

25« LOCATE 26.T+5 

26* IF VAL<P«>>4 OR UAL(Pil(e OR VAL(NS 

§)>B OR UAL(NS4)<e OR VAL(L0*)>8 OR WAL 

(LOtXC THEN PRINT"perdldo'"«GOTO 3«« 

2B» PRINT D 

29» IF D-» THEN GOTO 3B« 

3e« NEXT 7 

310 FOR 0-1 TO 1* 

320 FOR F-2 TO ISiCOLORI .F ICLS:NEXTF 

34* NEXT G 

33* LOCATE 2,2* 

36« PRINTiPRINT«PRINT"SEU NAWI0 ACA8A D 

E SER ATINGIDO POR UM TORPEDO." 

370 GOTO 450 

380 FOR G»l TO 10 

390 FOR F"2 TO 15ICOLOR 1 .F iCLSiNEXTF 

400 NEXT G 

416 LOCATE 2.20 

420 PRINT" PARABENS VOCE FOI PROM0VID0 



ALMIRANTE DE ESQUADRA." 



430 PRINT" 

•PRINT 

440 PRINT" VOCE FEZ ~|11-T|" PONTOS" 

450 INPUT "Digil. RETURN para nova bata 

lha."iA* 

460 RUN 
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Figura 3 

numeros. Apos receber cada um deles 
atraves do teclado, o programa calcula a 
distancia entre a posicao da explosao e a 
posicao do submarino (atraves do Teore- 
ma de "Tritdgoras". Voce lembra!?). Fi- 
nalmente, os dados introduzidos e a dis- 
tancia calculada sao impressos na tela no 
formato de uma tabela. 

Finalizacao - Esta parte simplesmen- 
te encerra o jogo, informando a vitoria 
ou derrota do jogador. 

Agora sim, vamos incrementar o pro- 
grama! Uma das grandes vantagens dos 
micros da linha MSX sobre os outros, es- 
ta na facilidade com que podemos pro- 
duzir sons atraves de seu BASIC. Acres- 
cente ao programa as linhas que cons- 
tam na figura 3. Todas elas tornam o 
programa um pouco mais atrativo. Ago- 
ra, voce pode comecar a fazer suas pro- 
prias modificac<3es acrescentando outros 
sons ou fazendo com que o navio e o 
submarino sejam desenhados na tela. 

Uma mudanca mais estrutural seria 
fazer com que, apos cada tiro, o subma- 
rino se deslocasse. Isso tornaria o jogo 
muito mais dificil. 

O programa deve ser digitado, man- 
tendo-se a numeracao das linhas da lis- 
tagem. Posteriormente, voce devera 
completa-lo com as linhas que estao fal- 
tando. 

. ■• 



Pierluigi Piazzi 6 formado em Qui mica e 
F/sica pela USP. Foi professor do curso Angelo 
Vestibulares e ja" editou a revista Micro-hobby. 
E autor de varios livros e atualmente dirige a 
Aleph Publicacoes, responsive! por muitos su- 
cessos na area editorial, dada a sua orientacao 
dida'tica. 
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sistemas de banco de dados 

CURSOS 

DISPONIUEIS 

• Introducao 6 Microcomputo$6o 

• DOS - PC "Sistema Operational" 

* • UNIX "Sistema Operational" 

• UNGUAGCM C "ling. Programofoo' 

• dBflSC II "Proarama^oo Baska" 

• dBRSC- II "Program, ftvancoda" 

• dBRSC III "Program. Baska" 

• LOTUS 1 -2-3 "Plan. Cletronko" 

* • Framework "Sistema Integrodo" 

• Symphony "Sistema Integrodo" 

• Wordstar "Processodor de Texto" 

* €m descnvoMmento 



MRTCRIRIS DIDRTICOS: Publicacoes 

Tecnicas desenvolvidos em 

portugues. 

R€CURSOS DIDRTICOS: Conceitos 

e exemplos proticos, atraves de 

Micros e Telao de 72" 

CURSOS FC-CHRDOS € R6C-RTOS 

NOVO €ND€R€C.O 

R'io Groelondia, 1 750 - Jordim €uropo 

C€P - 01434 - Soo Paulo - SP 

Telefones: 881-4599 - 881-4032 
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• Microcomputadores Pessoais 

e Profissionais, Software, Suprimentos 
e Cursos. 

• Financiamento em ate 18 meses sem 
entrada e os pregos mais baixos do 
mercado. 

• Atendimento perfeito. profissionais 
treinados e habilitados para dar a voce 
a certeza de um bom Investimento. 



EQUIPAMENTOS 

Micros das linhas: TRS-80 • Apple • 
IBM • Sinclair • TRS-80 Color 

I m pressoras • Videos • I nterf aces • Etc. 



SUPRIMENTOS 



Formulario Continuo • Disquetes 
Fitas • Mesas • Etiquetas • Etc. 



SOFTWARE 

Nacionais e Importados mais 

de 2.000 prpgramas e 

jogos de todas as linhas. 



CURSOS 

Basic • Basic Avangado e DOS. 



Av. Ataufo de Paiva, 566 

sobreloja 211 e 202 

Rio de Janeiro - R.J. 

Tels.: (021) 239-2798 e 511-0599 
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Olhadinha 



Francisco Correa 



Trata-se de um jogo, do tipo educativo, para todos os compu- 
tadores compativeis com o TRS-Color. Com ele, criancas numa 
faixa de cinco a nove anos de idade poderSo memorizar, brin- 
cando, a posicSo das teclas, bem como incrementar sua capaci- 
dade de concentracao e acuidade visual. 

funcionamento do Olhadinha 6 muito simples: ap6s o co- 
mando <RUN>, um menu aparecera" na tela, junto com uma 
simulaclo de um semaToro, a direita do video. Um bip indica- 
ri cada mudan9a de luz, do amarelo ao verde. Logo em segui- 



da, o programa far£ aparecer, por um breve instante, uma pa- 
lavra dentro de uma espe'cie de janela desenhada na tela. de- 
safio 6 digitar, no espa?o indicado, a mesma palavra e conse- 
guir abiscoitar dez pontos pelo acerto. 



Francisco J. M. Corria da Silva 4 Engenheiro Eletrdnico e trabalha atual- 
mente na Xerox do Brasil, como E specie I ista de Marketing. Lida com 
computacio desde 1981 e 6 fund ado r do TRS-80 Color Club. 



5 REM «»♦#«*#»««*••«#»***«•*•*» 

6 REM » TRS-B0 COLOR CLUBE RJ » 

7 REM » C. POSTAL 2951 - 20001 * 
B REM • POR: FRANCISCO CORREA • 

9 REM *#«•»♦«*»»«*•***«»«#«*«•»» 

10 CLS 

20 PRINT®96,"A ESQUERDA DA TELA EXISTE UMA": PRINT" 

SINALEIRA IGUAL A DE TRANSITO. " 

30 PR I NT" UMA PALAVRA SURG IRA POR UM INS- ANTE NA T 

ELA E VOCE TERA DE DI- GITAR A RFSPOSTA CORRETA. " 

40 PR I NT "VOCE GANHA 10 PONTOS PARA CADA RESPOSTA 

CORRETA. SE A RESPOSTA ESTIVER ERRADA, VOCE TERA U 

MA SEGUNDA CHANCE, MAS NAO GANHARA PONTOS." 

B0 REM 

90 PRINT042," olhadinha "» 

100 FORX=l TO 200:NEXTX 

1 10 SC = RND<0> 

120 PRINT@42," OLHADINHA "; 

125 SOUNDl'00, 1 

130 FOR X=l TO 200:NEXTX 

1".5 PRINT@457,"QUALQUER TECLA"; 

140 IF INkEY*="" THEN 90 

150 F=250 

160 CLS 3 

1 /0 GOSUB 770 

180 FOR X=l TO 30 

190 PRINTeX,CHR*(179) ; 

200 PRINT@X + 256,CHR*< IBB) ; 

210 NEXT 

220 FOR Y=32 TO 256 STEP 32 

270 PRINT@Y,CHR*<181) ; 

240 PRINTQY+31 ,CHR*( 186) ; 

250 NEXT 

260 PRINTe73,"*0LHADINHA»"; 

270 FOR X=136 TO 149 

2B0 PRINT@X,CHR1(191 > : 

290 PRINT@X+64,CHR*< 191 ) ; 

-00 NEXT 

310 PRINT@16B,CHR*U91 ) ; : PRINT© 1B1 ,CHR*(191> ; 

320 T=T+1 

330 IF T>10 THEN GOSUB 870 

340 Z=RND<30> 

350 IF Z=N THEN 7-40 

360 N=Z 

370 FOR P=l TO N 

380 READ N* 

390 NEXT 

400 PRlNTe2B9," »>DIBITE A RESPOSTA AQUI<<<" 

4 10 REM 

420 L*=CHR»<128) 

430 FOR 0=89 TO 219 STEP 32 

440 PRINTED, LJ + Li + L-T; :NEXTO 

450 PRINTQ418,"10 PONTOS PARA CADA ACERTO"; 

460 PRINT@122,CHR*(191>; 

465 SOUND10, 1 

470 GOSUB 940 



480 PR I NT® 1 22, L*; 

490 PRINT@154,CHR*(255) ; 

495 SOUND10, 1 

500 GOSUB 940 

505 SOUND10, 1 

510 PRINT@154,LS; 

520 PRINT@1B6,CHR*<143> : 

530 GOSUB 940 

540 PRINTQ186.L*; 

550 PR I NT© 1 69, N*; 

560 FOR TL=1 TO F:NEXT 

570 FOR B=169 TO 180 

580 PRINTQB.CHRSU75) ; 

590 NEXT B 

600 GOSUB 780 

610 PRINT®289," ";: INPUT "QUAL A PALAVRA " ; W* 

620 IF W*ON* THEN GOTO700 

630 IF TRY=1 OR TRY=2 AND Wt=N* THEN GOTO 670 

640 IF W*=N* THEN GOSUB 760 

650 PRINT@300,"correto"; 

660 GOSUB 940 

670 TRY=0 :60SUB 770 

680 RESTORE 

690 F=F-50:GOTO320 

700 PRINT@291 , "a"L*"resposta"L*"esta"L*"errada. . . " 

710 F=F+100 

720 IF F>250 THEN F=250 

730 TRY=TRYH 

740 IF TRY=2 THEN GOTO 800 

750 GOTO 420 

760 CO=CO+10 

770 PRINT©481 , "VOCE ATE AGORA TEM: "CO "PONTOS"; 

780 PRINT©288, 

790 RETURN 

800 PRINT©302, "«":M=LEN<N*> 

810 PRINT&290, " A RESPOSTA E..."; 

820 FOR A=l TO M 

830 PRINTQ306+A,MID*(N*,A, 1 ) ; 

840 SOUND RNDC230) ,2:NEXT 

850 GOSUB 940 

860 IRY=0: RESTORE: GOTO 320 

870 PRINTe355,"J0GA DE NOVO <S> OU <-N>"; 

880 G*=INKEY*:IF G*»""THEN 870 

890 IF G*="S" THEN 910 

900 IF G*="N"THEN CLS4:END 

910 RESTORE: F=250: CO=0: T=0 

920 CLS:pOTO150 

930 GOTO 320 

940 FOR TY= 1 TO 600: NEXT TY 

950 RETURN 

960 DATA RISCAR,ACREDITAR,RUA,MACACO,DINHEIRO,PAO 

970 DATA REAL,CADEIA,FLOR,PEDRA,SELO,MEL 

980 DATA HOTEL, VILA, AEROPORTO, DADOS, BATALHA, OESTE 

990 DATA PLUMA,MALA,BARRO,ANEL,LAMPADA,PORCA 

1000 DATA CAO,GATO,FRIO,OURO,CARA,CORDA 
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Micro 
Fichas 



TRSCOLOR 

CODIGOS E MENSAGEM DE ERRO 



/Micro 



?/0 Tentativa de divis3o por zero. 

AO Tentativa de reabrir arquivo. Aparece tambern se o RESET for pressio- 
nado durante operacSo com gravador. 

BS Os indices de gma matriz estao fora da faixa. Use DIM para dimensio- 
nar a n ?triz. 

Ex : PRINT A(12). dara este erro se A n3o tiver sido pre-dimensionado 
com pelo menos 12 elementos. 

CN Tentativa de usar o comando CONT em momento inadequado. 
Ex.: Ap6s o processamento da ultima linha do programa. 

DD Tentativa de redimensionar uma matriz. Cada matriz sd pode ser dimen- 
sionada uma vez. 
Ex. : N3o seria possive) usar DIM A(10) e DIM A(50) no mesmo programa. 

DN Uso ilegal de numero de dispositive Com OPEN; CLOSE; PRINT ou IN- 
PUT voce so pode usar 0. - 1 ou -2. 

DS InstrucSo direta no arquivo de dados sem a especificac3o do numero 
de linha. Pode ser causado se voce tentar carregar um arquivo de da- 
dos em fita. 

FC Chamada incorreta de f unc3o. Foi usada uma f uncao com um valor ile- 
gal nos seus parametros. 
Ex.: SOUND (260. 260) ou AID. 

FD Formato de campo incorreto. Ocorre quando se le (INPUT) ou grava 
(PRINT) um dado usando formato inadequado. 
Ex.: INPUT #1, A quando o dado no arquivo e uma string. 

FM Modo de arquivo invalido. Ocorre quando se tenta entrar com dados em 
um arquivo aberto apenas para safda (0) ou imprimir dados de um ar- 
quivo aberto para entrada (I). 

ID Instrucao direta ilegal. 

Ex.: Tentar usar INPUT sem numerac3o de linha. 



IE Tentativa de ler um dado alem do fim do arquivo. Use as instrucdes EOF 
e LOF para descobrir se voce ja atingiu o fim de um arquivo, neste caso 
feche-o com (CLOSE). 

10 Erro de entrada ou saida. Ocorre frequentemente nas operacSes de gra- 
vacao com cassete. 

LS String muito longa . Cada string pode confer no maximo 255 caracteres. 

NF NEXT sem FOR. Foi utilizada uma instrucao NEXT sem a respectiva ins- 
truc3o FOR. 

NO Tentativa de enviar dados para um arquivo ainda n3o aberto (OPEN). 

OD READ sem DATA. Os dados das instrucSes DATA s3o insuficientes pa- 
ra a instruc3o READ. 

OM Falta memdria. Toda a memdria disponivel foi usada ou reservada. 

OS Falta espaco para strings. Deve-se limpar espacos com CLEAR. 

OV Estouro de variivel numerica. Foi gerado um numero muito grande ou 
muito pequeno que o computador n3o tern capacidade para manipular. 

RG RETURN sem GOSUB. Foi encontrada uma instruc3o RETURN, sem 
um GOSUB correspondente. 

SN Erro de sintaxa Uso incorreto de pontuac3o; parenteses; aspas. cara- 
ter ilegal ou comando mal digitado. Redigite a linha ou comando. 

ST Formula de string muito complexa. Foi usada uma operac3o muito com- 
plexa dentro de uma string. Divida em operacSes menores para 
funcionar. 

TM Incompatibilidade de tipo de variavel. Foi tentada uma atribuic3o incom- 
pativel com a string utilizada. Ex.: A = "dado". 

UL Linha indefinida. Foi solicitado um desvio (GOTO; GOSUB), para uma 
linha inexistente. 



Olhadinha 



Economize tempo e dinheiro. 



— — — " — ^nch^Turna 13' 



s-ness prrns, c0 NT»NUpS e f ion a»s de 
FORMULA^ inf ormatica. P^ de dad os, 
I nara usuanos u^ processame. vende - 

l^attzacaodoscus ^qs C3^\ 



Racionalize seu 'business forms' 

MjjrualTecracDde ■ 
ForTauariusCortiu* 




Desejo receber ( ) exemplar(es) do livro Manual Tecnico de Formu- 

ISrios Contfnuos, pelo(s) qual(is) pasarei a quantia de CrS 

( )■ 

Nome 

Endereco 

C idade Estado CEP 
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Edgar Athayde Meneghetti 



Este jogo foi escrito para os micros 
da linha Sinclair que possuem 1 6 Kb de 
mem6ria, pois ele ocupa cerca de 3 Kb e 
e totalmente elaborado em linguagem de 
maquina. Nele, voce comanda o subma- 
rino Polaris em aguas inimigas, onde o 
objetivo 6 fazer o maior numero de pon- 
tos sem ser destnrido. 

Inicialmente, carregue o MICRO BUG 
e crie uma linha REM com 2542 carac- 
teres. Introduza os c6digos hexadeci- 
mais a partir do endere90 16509. Apos 
ter digitado tudo, basta dar RUN que o 
programa ser2 gravado, aparecendo em 
seguida a abertura. Para iniciar o jogo, 
pressione NEWLBNE ou o botSo de tiro 
do joystick que a batalha ird comecar! 

A tabela de pontos 6 mostrada na fi- 
gura 1. 
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Aviab =10 pontos 
Barco = 50 pontos 
Submarino inimigo = 100 pontos 
Li'der da tropa = 500 pontos 
Mina = nao pode ser destrufda 
Bomba = na"o vale pontos 



Figura 1 



Pode-se jogar pelo teclado ou pelo 
joystick. E quando aparecer a abertura, 
o programa podera ser brecado pressio- 
nando SHIFT e BREAK simultaneamen- 
te. 

Na figura 2 encontramos um resumo 
dos principais enderecos para eventuais 
modifica96es ou ate mesmo uma perso- 
nificacao do jogo. Nela, observamos 
ainda que o numero de bombas e a pro- 
porcao de a 254. 

Se voce quiser modificar o recorde, 
altere os codigos de 18021 a 18025; 



18985 - Numero de bombas lancadas 
peios avioes (quanto maior o 
numero mais bombas) . 

18990 — Numero desubmarinos (quan- 
to maior o numero mais sub- 
marines). 

18995 — Numero de minas soltas pe- 
ios submarinos (quanto me- 
nor o numero mais minas) . 

19000 — Numero de bombas soltas 
pelo li'der (quanto maior o 
numero mais bombas). 

1 7441 - Valor atribufdo aos avioes. 

17450 — Valor atribufdo aos submari- 
nos. 

17469 - Valor atribui'do ads barcos. 

16736 - Valor da pausa entre a subi- 
da do tiro e o seu apagamen- 
to (caso o tiro esteja pouco 
visfvel, aumente o valor para 
6ou mais). 



Figura 2 

e para mudar o numero de vidas, modi- 
fique o valor do endereco 1 7898 da se- 
guinte forma: ao numero de vidas dese- 
jadas, some 28. 

Edgar Athayde Meneghetti cursa a segunda s6- 
rie do Coligio de Aplica^ao, de Porto Alegre. 
E um autodidata que aprendeu a programar 
em BASIC e Assembler atravds da leitura de 
livros e revistas. 
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Faz a Folha de Pagamento de sua empresa, 
emitindo relatdrios como Guia de IAPAS, 
Guia de FGTS, Relacao de Empregados, 
Relacao para I.R.. Relacao para Banco, 
Informe de Rendimentos, Acumulados 
Anuais, RAIS e Recibo de Pagamento. 
A folha pode ser semanal ou mensal. 
As tabelas sab modificadas pelo prdprio 
usuario. 

Permite tambem, adiantamentos de sala>io, 
reajuste salarial, alteracoes de acumulados e 
outras fungdes que agilizem o processamento 
da Folha de Pagamento da empresa. 




A Contabilidade de um mfls em apenas 2 horasl 
Este Sistema permite o cadastramento de 
histdricos padronizados e de piano de contas 
com ate 5 nfveis. 

Emite DiaYio, Razao, Balancete, Balanco, 
Demonstracao de Resultados- Demonstracao 
de Lucros e Prejufzos acumulados, Listagem 
por centro de custo e extrato de contas, entre 
outras fungdes. 




Controla o estoque de itens com 

Especificacao, Estoque Mfnimo, Unidade. 

Fornecedor, Localizacao e outras 

informacdes relacionadas no item como 

Custo Medio, Entradas e Sai'das no pen'odo, 

etc. 

Fornece Listagens Geral e Parcial dos 

produtos, Listagem Ffsico-Financeira, 

Listagem dos produtos abaixo do estoque 

mCnimo, Lista de Pregos e Etiquetas, entre 

outras. 

Admite tambem, Reajuste de Precos, 

Alteracao de Dados e Exclusao de Produtos. 



Compatf veis com as linhas TR5-80 e Apple. 



A NASAJON oferece assistencia tecnica total, 
garantia permanente e mant6m a sua disposicao programadores 
e analistas para desenvoiver sistemas especi'ficos sob encomenda. 
Conte com a NASAJON SISTEMAS. 



k gl/i/temo/^ 



Av. Rio Branco. 45 • Grupo 1.31 1 
Rio de Janeiro - CEP 20.090 
Tels.: (021) 263-1241 e 233-0615 
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O peixe guloso 



Aldo Barduco Jr. e Pierluigi Piazzi 



No fun do dia, quando os Pescadores 
se retiram, deixam latas com minhocas e 
outras iscas na beira do lago. Water, urn 
peixe de nome cientiflco PISCES FA- 
MINTUS, estd com muita fome e sai a 
procura de alimento. Tendo o hibito de 
ficar soltando bolhas na agua, descobre 
que, ao soltd-las sob as latinhas, destas 
caem minhocas. 

Os peixes desta especie habitam os 
frios Iagos do Tibet, onde existe o terri- 
vel LUPUS AQUATICUS, popularmente 
conhecido como Peixe-lobo. Os Peixes- 
lobos tern como dieta tudo que encon- 
tram pela frente, menos as terriveis Pi- 
ranhas Azuis. 

unico peixe capaz de se alimentar 



destas Piranhas e Water, mas, se a Pira- 
nha estiver por tris, o devorari em pou- 
cos instantes (a "ecologia" da regiSo e 
realmente confusa!). 

Tibet tern um relevo jovem (ter- 
ciano), por isso sSo ta"o comuns desaba- 
mentos e terremotos. A partir de uma 
certa hora, os desabamentos dos barran- 
cos do lago comecam e n3o param mais. 

Como os gatos tern sete vidas, Water 
possui tres. 

Boa sorte e muito cuidado. No Tibet, 
os misterios sa"o muitos. . . 

OJOGO 

Voce deveri conduzir Water, desvian- 
do-o dos Peixes-lobos (e da Piranha, se 



estiver atriis). As teclas para controle de 
Water sao: 7 (para subir); 6 (para descer) 
e (para soltar bolhas). No topo da tela, 
estao indicados os pontos e as vidas. 

As bolhas so podem ser soltas uma de 
cada vez. Caso a bolha atinja a latinha, 
minhocas cairlo na agua, e Water deverd 
pegi-las. }&, se ela atingir o louco Monge 
Nadador, esta sumiri. 

Iscas amarelas de formas estranhas 
aparecerSo na tela. Ao pega-las, voce 
adiciona 1000 pontos ao seu placar. 

Os Peixes-lobos virao a sua frente em 
ziguezague. Desvie, pois, se nao o fizer, 
a morte sera certa. Ja as Piranhas Azuis 
vem por tris e tentam pegd-lo. Se voce, 



5>REH Aldo Barduco Jr 

10 FOR f»USR "a" TO USR "u"*7t 
READ xi POKE f,xt NEXT f 

11 LET AS-~~J LET B*-""i FOR F 
-1 TO 32 STEP 2i LET A»=A**CHRS 
1401 LET B»-8**CHR* 149*CHRS MB 
I NEXT Fi LET AS-At+Al: DIM Rl< 1 
0,20>: DIN R<10> 

12 BORDER ll PAPER H INK /. 
OSUB 3000 , 

20 BORDER 11 CLS I LET Y-191 L 
ET BX-Ol LET BY«0: LET BO-0« LET 
O-Ol LET NX-#: LET NY-31 Din H< 
3>i LET P-0i LET T-0i LET TOO: 
LET V"»l LET TY-0: 

30 PRINT »ll" "| BRIGHT 1|CH 
«§ 144»CHRS 145| BRIGHT 0|" Uate 
r, o peixe guloso"! LET HY-4: LE 
T MX-Ol PRINT AT 21,0»AS|AT 21.0 
I INK «, OVER l|8i 

40 LET K-0l LET PX-O: LET PY-1 
•I LET 0X-0t LET DY-10: FOR F-0 
TO 21 PRINT AT F,0| PAPER 3|~ 

"I 
NEXT F 

43 LET TY-Yl PAPER 5i INK Ot P 
RINT AT 1.3»CHR* 146|AT l.lSiCHK 
« 146|AT 1,23|CHRS 146.AT 2.S1CH 
Rt 147>AT 2,15|CHR» 147|AT 2,23| 
CHR* 1471 PAPER ll INK 7 

46 PRINT AT 0.3i PAPER 3| INK 
•l"Ponto«i"» PAPER 3i INK OjAT • 
,10»P 

4? FOR V»3 TO 1 STEP -ll PRINT 
AT 0,16| PAPER 5| INK •>"Vidm*i 
"1 PAPER 3| INK O1V1 SOUND .41,2 
•1 PRINT AT 3.0«" 

50 FOR X-2 TO 311 LET 0-0«<0-0 
)-(0-l> 

7t LET Y»Y*(INKEY»-"6" AND Y<1 
?>-<INKEY*-"7~ AND Y>3)i IF NOT 
BO THEN LET BO-<INKEYl-"»") 1 LET 
BY-<Y-1 AND BO) 1 LET BX-(X-2 AN 
D B0)i IF BO THEN PRINT AT BY.BX 
iCHfil 131 

71 LET K-K-MATTR <Y.X«1><>15> 

75 IF TYOY THEN PRINT AT TY.X 
-3l" "1 LET TY-Y 

80 PRINT AT Y.X-2)" "♦<CHR* 14 
4*CHR» 143 AND o-l)*(CHR» 1S8+CH 
R» 143 AND o«0> 

B3 IF PX-4<X AND X<PX THEN PR I 
NT AT Y.X-2|" "iCHRf 144. CHR* 13 



90 IF K THEN LET K-0: GOTO 1 •• 

e 

93 SOUND .•09.12 

100 IF PM0OO THEN PRINT AT MY, 
MX»" "1 LET MY»MY+(MY<2«)-(MY-4 
AND MY>J9)i PRINT AT MY.MXiCHRt 
1601 SOUND .••191,15 

101 IF (MX-X AND MY-Y> OR <MX-X 
-1 AND MY-Y) THEN PRINT AT V.X-1 
l" "1 NEXT VI GOTO 2000 

1«S IF MY-4 THEN PRINT AT MY. MX 
l" "I LET MX-INT <RND»31> 

11* IF M(l) AND (PX-X-1 AND PY- 
Y) THEN PRINT AT Y,X-2|" "1 NE 
XT vl GOTO 2000 

120 IF T THEN LET T-T-t 

13* IF BY-NY AND BX-NX THEN LET 

so-e 

140 LET NX-NX-(NX>0>*<31 AND NX 

-•)l PRINT AT NY.NXMCHR1 137 AN 

D NX/2-INT <NX/2)>*<CHR* 136 AND 

NX/20INT <NX/2))+" * 

150 IF BO THEN PRINT AT BY.BX," 

"1 LET BY>BY-(BY>3)I PRINT AT B 

Y.BXtCHRt IS* 

160 IF M<1> THEN PRINT AT PY.PX 
l" "I LET PX-PX*(INT <RND»2> AND 
PX<31)-<30 AND PX>30>I LET PY-P 
Y*SGN <Y-PY)*INT <RND«2)i PRINT 
AT PY.PXi INK 5lCHR* 133 

17* IF M(2) THEN PRINT AT DY.OX 
l" "I LET DX-DX-ll LET DY-DY»SGN 
<Y-DY-RND»1.5>: PRINT AT DY.DX» 
INK 4;CHRf 1551 IF NOT DX THEN 
PRINT AT OY.DXi" "t LET M<2>.0 
1B6 IF NOT M<1) AND RND<.1 THEN 
LET PX-O: LET M(1>-PI/PI 
193 IF NOT M(3) AND RND(.«2 THE 
N LET M(3)-ll PRINT AT RND«15*3, 
RND»29*1» INK 61CHR* 134 
200 IF NOT M<2) AND RND< .2 THEN 
LET DX-31! LET M<2)-PI/PI 
205 IF (DX-X-1 AND DY"Y) OR (DX 
*X AND DY-Y) THEN PRINT AT Y.X-2 
l" "I LET 0Y-(21-4)I NEXT VI 
OTO 2««« 

266 IF BY-3 THEN LET BY-21 LET 
BO.«i PRINT AT 3,BX|" "1 GOTO •♦ 
<900 AND ATTR <BY.BX>-4«>+<2«7 A 
ND ATTR <BY.BX><>4«> 

2*7 IF BY=3 THEN PRINT AT BY.BX 
l" "I LET BO-« 
2«B IF NOT NX THEN PRINT AT NY, 



«:- 



21* NEXT XI PRINT AT Y,3«|" " , 
AT TY,3«|" "1 GOTO 3» 

99* LET L-INT <RND»3*1)I FOR F- 
1 TO Ll LET L7-INT (RND»7*3)i PR 
INT AT L7,F*8X»CHR» 1321 NEXT Fl 
LET T»3»i SOUND .»01.ie 
910 GOTO 207 
!•»• IF ATTR (Y.X*1)-11 THEN LET 
P-P*T*Yi PRINT AT Y,X-l|CHR* 14 
4iCHR« 159i PAPER 5| INK 6|AT •. 
1»|P 

1B1* IF ATTR <Y,X+1)-13 THEN LET 
M(l)-»i LET P-P*6»«INT (RND«2») 
1 PRINT PAPER 5| INK e»AT e.l*iP 
1»2» IF ATTR <M.x»l>-l2 THEN NEX 
T vt GOTO 2»e« 

1*25 IF ATTR (Y,X+t>»14 THEN LET 
P'P«l«*ei PRINT PAPER 5i INK •: 
AT •.IOsPi PRINT AT Y.X'li" "1 8 
OUND ••l.S 
1«30 GOTO 16* 

!•»• PRINT AT 2,11*08 RECORDISTA 
81"! FOR F»4 TO 13: PRINT AT F.2 
lR*(F-3> jR(F-3>i NEXT F 
2»1# FOR F-l TO 10 
2020 IF R(FXP THEN LEI Rl-Ft GO 
TO 2040 

2030 NtXl it GOTO 9000 
2040 FOR F«9 • Rl STEP -ll LET 
Rt(l'»l>=Rt<F •! LET R(F*1).R<F)I 
NEXT F< PRINT AT 21 ,2 j "R.cord I «t 
» digit* itu noM.'i INPUT Rt(Rl 
it LET R(R1>.P: FOR F-4 TO 131 P 
RINT AT F.?»R*(F-3)!R(F-3)I NEXT 

Fl GOTO 9000 
3000 US i PLOI 244.1711 DRAU -1 
.-10. 21 DRAU 2.10.31 PRINT AT 5 
,0: Ink SiBf 

3010 PRINT : PRINT INK 3|" ~»CH 
R* 144>CHR* 145 

3020 P101 93,170: DRAW 3,-20: DR 
AU 2.»5: DRAU 2.-15: DRAU 3.201 
PRINT AT 2.13i ' A T E R" 
3030 PRINT AT 16, Ol" "jCHR* 

164i" Bg Alcph Publicacoc* 
3035 PRINT AT 1B,0»" <(P)) By 

Aldo Barduco Jr" 
3040 PRINT AT 21 , 1 "Ap»rt c UM 1 
ctra para continuari" 
3045 IF INKEYl-"" THEN GOTO 3045 
3047 PRINT AT 21, Oi" 



3050 PRINT AT 9.0|" Contr 



olc Uat 



mr coa aa tcclaa 3 • 8. Atlr« bo 

lhaa nn latas. coaa tecla 0, pa 

ra que cii» ■inho-cas.Uat>r con 

segue coaer soaent equando esta d 

01s caracterea an-tes devido a 

sua abertura bucal" 

3060 LET 0t>"0000010020030040030 

0600700800901001 1009007005001 -01 

-»3-05-07-09-05-020000000020020» 

00000020020950020050090070090070 

04001000-01"! FOR F«l TO LEN 0* 

STEP 3! SOUND .25.VAL 0*(F TO F* 

2)1 NEXT F 

3070 PRINT AT 20,26fCHR* 161 (CHR 

f 162|CHR« 163|" "» INK 3|"83" 

3080 IF INKEY»»"" THEN GOTO 3080 

3090 RETURN 

9000 BRIGHT ll FOR G-l TO 10: FO 

R F-0 TO 7: BORDER Fl SOUND F/10 

O.F«G»RND: NEXT Fi NEXT G: BRIGH 

T Oi PRINT Nli'Aperte uaa tccla 

para o in ic 10 ." 

9010 SOUND .001 .RND'RND: IF INKE 

1%'"" THEN GOTO 9010 

9020 GOTO 20 

9100 DATA 120,188,142.135.7,6.44 

. 16 

9110 DATA 96. 48. 124. -»46. 255. 126. 

28.0 

9120 DATA 60.66.153.165.165.153, 

66.60 

9130 DATA 126.195.153.173.181.15 

3,195.126 

9140 DATA 0.0.16.170.69.0.0.0,0. 

0,0, 31. 204, 0.0.0 

9150 DATA 64.166.73.9.134.32,82. 

32 

9160 DATA 16.65. 12, B2, 18. 108. 144 

.104,0.0,0.0.128.103.24.0 

9170 DATA 16.8.156.118.126.156.1 

6.0.129.60.66.189.189.66.60.129 

9180 DATA 129.126.90.165.126.36. 

24 , . 64 . 32 , 1 1 9 . 248 . 1 1 6 . 35 . 1 6 . 

9190 DATA 16.34,118.248,116.34.6 

6.0.0,60.126.135.135.134,12,24 

9200 DATA 96.48.126.247.252,224, 

126.60 

9210 DATA 82.163.128.85.164.139. 

Bl. 42. 0.6. 6. 38. 90. 63. 162, 66 

9220 DATA 64.160.161,161,193.199 

.41.30.0,0.0.96.208.184,144.96 

9230 DATA 60.66.153.161,161,153, 

66.60 
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por6m, pegd-la por trds, fari muitos pon- 
tos. 

Ao passar dos 1000 pontos, uma pe- 
dra comecard a cair da borda do lago e, 
se atingir Water, este perdera uma vida. 
Ao final, o programa mostrara os recor- 
distas. Caso voce tenha batido aigum re- 
corde, dever£ introduzir seu nome, que 
sera exposto a admiracao publica e exal- 
tacSo generalizada! 

PARTES IMPORT ANTES 
DO PROGRAMA 

Inicialmente, explicaremos as rotinas 
mais interessantes e importantes do pro- 
grama Water e, a seguir, daremos algu- 
mas dicas de alteracOes. 

A linha 10 faz a leitura dos DATA, 
que esta"o a partir da linha 9100 e colo- 
ca seus valores na memdria do UDG re- 
definfvel pelo usuirio (dizemos "redefi- 
nivel pelo usuano", pois existem o UDG 
1 e o UDG que o prdprio TK define). 

A linha 1 1 dimensiona R$ para que 
guarde o recorde e os recordistas. 

Na linha 30 , o primeiro PRINT exe- 
cuta uma impressa"o na parte inferior da 
tela, nas linhas de edicJo. 

Na linha 50, iniciamos o movimento 
do Water, pois fazemos um LOOP de 2 
ate 3 1 e armazenamos o valor em x (que 
corresponde a coordenada x da posicao 
do peixe). Nesta mesma linha, coloca- 
mos em o valor 1 , se O for 0, e 0, se 
for 1. Daqui a pouco voce vera o por- 
que. 

A linha 70 faz a leitura do teclado. 

Na linha 7 1 .verificamos se existe ai- 
gum cariter de cor diferente do fundo, 
a frente de Water. Este recurso nos per- 
mite saber qual cariter est^ na dada po- 



sicao (ver da linha 1000 ate a 1025). 

Na linha 75, verificamos se Water 
mudou de linha (subiu ou desceu) e, em 
caso afirmativo, apagamos a velha posi- 
?ao que ele ocupava. 

Na linha 80, imprimimos Water e va- 
riamos sua cauda de acordo com o valor 
de (veja linha 50). 

A linha 85 verifica se estamos quatro 
caracteres atnis da piranha e, se estiver- 
mos, faz com que Water abra e feche a 
boca. Ja a linha 101 verifica se a pedra 
atingiu Water. 

Da linha 105 ate a linha 210 hi o 
movimento de todos os outros elemen- 
tos na tela e a verificacao de se algum 
destes atingiu Water. NSo entramos em 
detalhes, poisosprocessos }& foram men- 
cionados (verificagJo de uma posicSo no 
video, verificacao nas pr6prias variiveis 
que contem a posicao do Water). 

Da linha 2000 ate a 2040 hi a expo- 
sic3o dos nomes recordistas, verificando 
se houve recorde batido. Em caso positi- 
vo, 6 feita a inser$ao do nome no novo 
recordista. As linhas 9000, 9010 e 9020 
sio continua5ao desta rotina (2000- 
2040), sendo apenas de recursos sonoros 
e visuais do final do programa. 

Na linha 3000, usamos recursos de 
desenho (PLOT, DRAW), para escrever 
"W" e desenhar a lua. 

Na linha 3060, guardamos, na varia- 
vel 0$, a melodia que toca durante a 
apresentacao. 

Na linha 3070, 6 impressa a assinatu- 
ra do autor do jogo e o ano em que foi 
feito (Aldo 85). 

As possiveis mudancas que nao alte- 
rariam a estrutura do programa sa"o: 
Modificar as teclas para 8 e 9, ao in- 



ves de 6 e 7, seria muito interessante pa- 
ra os que possuem joystick. 

Para modificar o som do programa, 
alterea linha 95. 

Se achar que o numero inicial de vi- 
das e muito pouco, altere o FOR V=3 ... 
para FOR V=Numero de vidas inciais 
desejado... 

Nao mude a cor do jogo, pois isto re- 
quer um conhecimento maior sobre o 
funcionamento das fun56es ATTR que, 
no caso, serao totalmente alteradas (em 
termos de valores referidos aos caracte- 
res do jogo). 

Para se gravar o programa, basta dar 
o comando direto SAVE "WATER" LI- 
NE 10 e o mesmo iii entrar em auto- 
start. Se quiser gravd-lo de uma forma 
mais compacta, execute a linha 10 e de- 
pots elimine as linhas de 9100 ate" o final 
e substitua a linha 10 por LOAD "" CO- 
DE. Em seguida, grave o programa em 
duas etapas: 

1) SAVE "WATER" LINE 10 

2) SAVE "WATER" CODE USR "a", 

168 

Quanto ao resto, deixamos por conta 
de sua habilidade e imaginacao. Bom di- 
vertimento! ■ 

m 



Aldo Barduco Jr. est* cursando a 8 a strie do 
primeiro grau e 6 autodidata em BASIC e As- 
sembler. Possui um TK 85 e um TK90X. 

Pierluigi Piazzi 6 formado em Quimtca e Fi'si- 
ca pela USP. Foi professor do curso Anglo 
Vestibulareseja" editoua revista "Microhobby. 
£ autor de virios livros e awalmente dirige a 
Aleph Publicecdes, responsa'vel por muitos su- 
cessos na irea editorial, dada a sua orientacio 
diditica. 
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informatica 



MICRO SISTEMAS, Janeiro/86 



Avenida Pavao, 346 - Indianopolis - CEP 04516 - Sao Paulo - SP 
Telefone: (011) 533-0120 / 533-0112- Telex: 22966 
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Rally 



Luis Mauricio Chopard Bonilauri 



Rally/Bas e" um jogo rfpido e emocionante, que po- 
dera diverti-lo por longas horas. Ele foi programado em 
BASIC, mis possui duas rotinas, em linguagem de ma- 
quina, para agiliza-lo e produzir som. 

Originalmente, o programa foi feito em um CP 500, 
com drive, e para rod^-lo em equipamentos com cassete 
e necessario uma modificasao, ja que ele possui duas 
rotinas em Assembler, e o monitor BASIC residente so 
suporta uma. A modificacao consiste em suprimir a ro- 
tina de som, uma vez que a outra rotina serve para des- 
locar a tela, sendo por isso mais importante. Deve-se 
proceder da seguinte maneira: 

1?) Alterar a linha 80 para: 80 POKE 16526,0:POKE 
16527,125. 

2?) Retirar as linhas 120, 130e 180. 

39) Retirar da linha 340 o trecho: FOR Y=l TO 
5:X=USR1(50):NEXT. 

4?) Mudar a linha 470 para 470 REM. 



m RALLY « 



NMCMi I 



RECORDE: 28 



221 Ki 



NOVO RECORDE! 



& 



Exemplo de tela do jogo. 



Lute M. C. Bonilauri tem 13 anos e. desde 1984, faz programas 
em BASIC e Assembler. Aprendeu as duas linguagens atravds de 
livros e manuais. 



46 



Lfl 



20 '» LUIS MAURICIO CHOPARD BONILAURI, RIO DE JANEIRO K. I. > 
30 '««•»«•••■•«•«•••••••■»«••»••«■*««•»•■■«« «»»»«• ■««»« ........ 

40 Ct EAR 300 

50 RL-0 

60 RANDOM 

/0 A*=CHR*< l74)+CHR%<175>«-CHR»<132>+CHR*(26)+STRINriV J,8)+l HI- i. • i 

I] I H HB*< 131 )+CHR%<129) 
80 DEFU:»R= 32000 :DfcHJ^Rl = -8192 
90 Bt=CHR%( 170):C4=CHR*( 149) 
L#C I ;2000 

■ 10 RIAD A:P0KE F,A:F=F+l:IF A< >20l THEN GOTO 110 
120 F=-819i- 

130 READ A:POKE F.A«F»F+UIF A< >20l THEN GOTO 13« 
j4t» QOSUB 400 

150 GOSUB 500:CLS:PR1N1S0, "•• RALLY »• MARCH AS 

R| COBDI =' ; RE; 364. STRINGS (64, 140); 
160 P=925:M=i:l=0 

170 DAT A33, 127, 63, 126, 17. 255. 63. 18.1 ,0.3. 17.181,33,154,60.54 
, 1 7 . 1 55 . 60 . 1 . 1 4 , . 237 . 1 76 . ?3 . 21 7 . 60 . S4 , 32 . t > , :• I 8 . / < 
76,201 
180 DATA205, 12/, 10. 77, 68. 62. 1,105, 211 ..■■'•. ■■•'■ U.li 

,.i .18,175,211,255.201 

iv0 BOSUB 370 

2<»0 PR INI J25*12H.B«»a4 1*128. CSf 
,M0 --USRI0- 

220 II PEEI i r350>=64P=t>+2 ELSE IF PEEK ■ l I 

230 IF PEEK" 15360+P) >128 OR PEEK ( 15362+P ) > 128 i 
240 PRINTJP.Ai: 

250 Ii PEEK < 14352 )»2I HEN NM"l«P*INT826."i''» i EL8S H PEtf'14352' 
4 THEN NM=0: PR IN (,).'*. 2" i 
260 IF RND(V)-1 PRlNT«IP-7i8.Ats 
270 I^I+l 

280 IF M-0 IHCN GOTO 200 
290 FOR F=l TO BScNEXT 
300 GOTO 200 
310 PRlNTa54.I;"Kni": 
320 PR INT8922, STRINGS* 15.128) ;8984, STRING*' 15.1 

j 30 HRiNraP-64,i HR*(i4i- ; rCHRt<144)t8P.CHRH 

HRii 145) jCHR*<132)»8P+64,CHRt<129)tCHR*< 130)|CHR*i 130»lLHP4> 12' 

340 IF I>RE THEN HE = I :PR INT8760-128- 10 . ' NOVO RECORD! I'"l« I • ' 
TO 5:X=USRK50):NEXT ELSE FOR C = l TO 300 » NEXT 
350 PRINia89B,"TECLE <ENTEP> P/"»8945,"REC0MECAR I 
160 IF PEEK ( 15350 )=0 THEN 360 ELSE GOTO : 

370 FOR F=2 TO 15 STEP 2lPRINT8F»64+25.CHRSH I I • -i i l.itfctu 

49); :NEXT=PRINT3P, A4; 

380 TOR F=0 TO 20:PR 1NT354 , "ATENCAO |*F0R I -1 I •■ 
4.STRING*(7.128);SF.)R T=l TO 34:NEXT:NEXI 
390 RETURN 
400 CLS«PRINT823."« • RALLY »« ini.vi*. 

410 PRINT :PRINT!PRINT" Dlri.la se-i cmrra KM P I I I •' Rally, 

mas LUidado com os ou-trot tuncorrtiiii- I I PR I til 

420 PRINT" Use < e > para uuv iiuent ar scu carta • I • para in 

gatar a primeira du acgunda march*. resp< M H •- IPR1N1 

430 PRINT" BOA SORTE I I I" 

440 PRINT : PR INT :PR INT" Por: Luis Ma'ir ii m I l»o| irti I n 

450 PRINT3977,' TECLE <ENTER> PARA C0MECAI A I >Kl ll"A 

460 F=30 

470 X=USR1(30030+F ) :F=F+10:1F F=150 THEN I M 

480 IF PEEK(15350)=0 THEN 470 

490 RETURN 

500 CLS:PRINTa519."Qual o nivel (dif.c.l:' U'HM 

510 IF V>21 OR V<5 THEN 500 

520 RETURN 



Rally IBas 



O UNITRON REVELA 
O SEU SEGREI 





DULARIDADE 



Quern compra um micro esta investindo no 
presente e no futuro. Por isso o equipamen- 
to deve acompanhar a evolu<;ao das neces- 
sidades e aplicagoes do usuario. Atraves 
dos seus oito slots (parte superior da foto), 
o UNITRON APII permite a expansao do 
equipamento na medida em que crescem 
as necessidades e de acordo com as eco- 
nomias de cada um. 

Voce pode comegarcomprando um UNI- 
TRON APII e Ijga-lo na TV (P&B ou cores). De- 
pois pode acrescentar disk-drives, impres- 
sora, monitor professional, placa Z-80 para 
CP/M, placa 80 colunas, interface de co- 



municagoes, etc., etc. Voce pode tambem 
aumentar a memoria do seu micro com pla- 
ces de 1 6, 32, 64 ou 1 28K. Tudo isto de mo- 
do bastante simples, com manuais em por- 
tugues e facil instalagao. Quanto ao softwa- 
re, voce dispoe de programas como o VI- 
SICALC, DBASE, WORD STAR emilharesde 
outros best-sellers, desenvolvidos para o 
'APPLE II +" norte-americano. Essa modu- 
laridade e riqueza de software e que fazem 
do UNITRON APII o micro mais vendido pa- 
ra empresas, profissionais liberais e fami lias 
inteligentes. Fique com o melhor. 
Fique com o UNITRON APII. 



O MELHOR CONJUNTO 

UNITRON APII, MONITOR COMPO, DRIVE ELEBRA, 
IMPRESSORA MONICA E INTERFACES. 
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MICRO SISTEMAS, Janeiro/86 



O MAIOR REVENDEDOR UNITRON DE TODO O PAIS 

RUA SETE DE SETEMBRO, 99 - 11 ? ANDAR 
TEL.. PABX (021) 224-7007 - CEP 20050 - RIO DE JANEIRO - RJ 

AV. PAULISTA, 726 - 5? ANDAR - CONJ. 506 
TEL: (011) 288-4492 - CEP 01362 - SAO PAULO - SP 
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INFORMATICA EMPRESARIAL LTDA. 



zx81 zx81 zx81 zx8 




Micro-golf 



William Tadao Tanji 



golf 6 um esporte que depende de calma, habilidade, pa- 
ciencia e muita concentraca'o, para efetuar as tacadas. Micro- 
golf exige do jogador controle absoluto a cada lance, o que se- 
ra feito por intermedio de um boneco bem humorado. 

Este boneco estara sempre esperando que o jogador se ma- 
nifeste, aprovando as tacadas corretas e reprovando, com iro- 
nia, as aventuras falhas. Para dar a intensidade da tacada, basta 
apertar qualquer tecla, exceto STOP. Quanto maior o tempo 
de pressSo, maior a intensidade. Porem, se o tempo for longo 
demais, a intensidade volta a zero. 

Agora, e" s6 apertar RUN. . . e boa sorte. 



William Tadao Tanji 4 formado pela Escola Tecnica SenaiSufgoBrasilei- 
ra, da Sao Paulo, em Maoinica da Precisao. Atualmenta estuda no Insti- 
tute da En si no de Engenharia Paulista. Tern a microcomputagao como 
hobby, undo usuArio de um CP-200. 



Tacada especial 



O Centro de Processamento de Dados da revista MICRO 
SISTEMAS oferece, neste quadra, algumas sugestSes do lei- 
tor, visando possi'veis modificacoes no programa: 

Substitua as linhas 1 10 at6 1 12 pelas linhas abaixo. Assim, 
voce tera no video a visualizac5o da intensidade na tacada. 

1«5 LET Ai-INKEY* 

196 LET I-I+.5 

1»7 PLOT I»2*11.32 

1*8 IF 1-21 THEN LET I-» 

!•? IF l-» THEN PRINT AT 5.5jB* 

TO 22) 

Acrescentando ainda esta linha (a scguir), voce obtera o 
movimento do taco: 

125 PRINT AT I4,3j" ";CHR* »34s 
TAB i'J " ' [CHR* 7 1 TAB ll" "| 
CHR* 7»CHR* 12?>TAB 1»" "»CHR* 

61CHR* OlCHRt 61CHR* 4sCHR* 4|T 

ab 4s chr* taeiCHR* 01CHR* taeicH 

RS 2 



1 z- .S ■GF" 

A FH5T 

5 LET : :=? 

6 LET T»SC 
- ^ET ■$= 

8 POP K=l TO 10 
3 L.ET "%■=:%-• S 

10 NEXT ■ 

11 ;_ET IJ:'^ TO 704 
IS -LS 

12 POB K=a ""0 2-1 

14 If r 19 THEN LET xs - *32+32 
I =CHR$ 133 

15 IF ' ir "HEN LET XtlK»32+il 
sCHRS 5 

1« _ET xf ik*1' =CHPS 133 
1? uET «$ ic"i*f +1' =CHRS 135 
1: _ET ■ $ . 640+Ktl) =CHRi 136 
IS i_ET ■ $ 5C8+K+1 "CMRj 1-: 
20 NEXT • _ _ 

:; let <s 11 -•: ^= = mSBismat 



« 



22 LET Kt 14-00 TO *11) ■•'TENTPrri 

yfi3» ' 
aa let -s ;a. to 347)»"SC0RE* 

£4 LET • s 5831 =CHP$ J. 
83 LET ES = 



30 5L0U 

40 LET B=INT (RND#1C --0 
50 PRINT hT O,0,X*;flT 19 .5 
;f»T 12 .26. T RT 10.26.. 5C 
55 IF TO THEN GOTO 35 

50 PRINT RT 2,2, "IN5TPUC0E: 

:- N 

51 _ET RS = Ifi-E. $ 

62 IF RJ= THEN GOTO 61 

63 IF RS= N" THEN GOTO 35 
TO POKE 16*13 

ROE OR TRCRDfi . BRSTR RPEPTRR S 
LOUEC TECLR EXCETO S3- OURNTQ 
IOR TEMPO DE PRE55R0 tiRIOP 
Rfl fi INTEN5IDR0E OR TRCRDR . 1h 
-..ICROO, 5E TEMPO DE PRE:-;h. 
OP ML'ITO LONGO R INTENSIOhEE 
lTh h ZERO COMECRNDG tuoc : = 
i.'0. . . BOR PflRTIOfl. " 
"c _" R*=B*--R«+B$ 

31 POP K=l TO LEN fll-31 



:: 

.* 

MA 

e 



z 



=.: PRINT RT 23.0.RS 

83 NE"T - 

3 a POKE 16*13.2 

35 <_ET ES=E» TO 23 

36 LE^ R=0 

e" GOSUB i&CC 

SO PRINT PT £ 
TENSI5R0E" 
*5 LET 1=0 



(K TO * +31 



8, Z= RGORfl fl IN 



93 IF INT p. PNC *4 1=0 THEN PRINT 

RT 8,4; CHR* 133+CHRS 123+CHRJ 1 

2i-:nR* 5 RT S.*;CMR« 133-CHRS 1 
23-:hC$ 120*-:hPS 5 

99 IF INT [RND*S =0 THEN 60SUE 

100 PRINT mT - 5.CHRS 130 + CmP» 
lii a- 3.A.CHPS 133+CHRS 129+CMR 
S 120*CHP$ 5.RT 9,6 CHRt 132+CnP 

108 : = INKE S= THEN G'DTO 93 

110 LE T RS=I"rE ■ % 

111 _ET I=I+.S 

112 IF 1=21 THEN LET 1=0 

11 2 IP RS THEN GOTO 105 

11* =_: •■ 

115 PRINT RT 1 i zi 

120 GOSUB 1000 

130 POP K=16 TO 16+I+2 

140 PLOT Y 6 

1*1 JNPLOT r ;e 

;-; NEXT K 

1*2 PLOT - 6 

1*5 i-ET Gst i 

15fl IP p:-=d+.5 OR B=0 THEN SOTO 

155 GOSUB 2000 _.„ . 

'-.-> PRINT RT 2 2 "ERROU..VOCE B 
3R053C IE3M0.." ^ , „ . 

"200 PRINT RT * 2,'DE N0U0 ? •; 

'. 

2-0 -=t - = = :•.- E S „_. , 

213 IP INT -PND*6'=0 THEN PRINT 
RT 9-€ C-MRt 131. RT 9.6.CHRS 7 
215 IP INT lRND*4) =0 THEN PRINT 
RT 8 5 CmRS 125+CHRS * • RT 5 c - 
HP « 129+CMRi * 
217 _£" C»INT RND410 
glfi "= Jag THEN GOSUB 1030 

219 IF C=0 TIEN p^OSUB 1032 

220 IP RS=' THEN GOTO 210 
230 IP R$= -i THEN GOTO 240 

2:: _et f«T+l 
a:= :-: t : 25 

c*0 PRINT RT 0. ■ 5 

250 PRI NT RT 1 12 COVRRDE RT 

10 .2 fflfflSTail 3 

2eo :■:■'■:< 250 
:ooo :- 2 z j e i o : o 

.001 =PINT ST 10,4 "ffl»K .RT 11 
II 

1005 2= " = THfr. .;.jt-; :01C 

;oo5 :-:-: 102: _ _ 

.010 —INT AT 1£.4 'VKii? RT -- 

* V* RT 2* -■• " ' +CHRJ 129*CM 
=5 138 RT 15,2 "+CHRS 122- 

-:-=S : h' i: . '"+CMR* 22: 

+CHR* S.RT 17.1 ' +CMRS 5 

fCMRi 1334 -C-PS 5 -~ 12 * :-- 

= 50+CHRJ 12--2HPS * + CHR$ 12-0 



»»- . RT 12 
, fl T 15,2 
|",RT 1" - 
RT 18 ,4 : - 



1015 CETURN 
1020 PPINT RT 1£,4 
A. ■•■_■■"■■ PT 14 2 "J 
.• Pi RT 16.1 .' 

■•■ I •:--: k-:»Pt 

R* 135+ "f "+CHR* *+CHR$ 129 

.025 _ET fisl 

1028 OETURN 

1030 PRINT RT 7 

129. RT 8 * :hr« 

5 130+CHR* 5 RT 

S 7 

.0 2 1 =E~-JP'i 

1033 PRINT PT 

4, RT 2.5 >=l 

A , RT 3 . 5 . C r.P $ 

10 2 5 =ET,jrn 

10A0 PRINT RT ~ 5 CHRS 125*CMR» 

12 C RT 2 ~ 2 lP$ 



5. CMRS 130+CHPs 
133+CHPS 129+C^P 
9.5. IMPS 132+CMR 



- 5. CHRS 129+CHPS 
128+CHRS 129+CHPS 
132+CHRi 7 



135+CHPS .20-2-= 



$ i£= RT 9 5 CHR« 132+CMR« 7 

10A5 RETURN 

1050 PRINT RT 7 r CHR* 131+CHR* 

12 1 RT S * IMPS 133+CHPS 132+CHR 



S 7+CHR* 

125 
1055 
= 000 
121 
2005 

20©e 



5. PT 9 5. CMPS 125 + 2 MPS 



RETURN 
PRINT R 1 



- 5 CHR* 132+CHRI 



. NPi_0~ r 5 
FOP L=l TO 
PLOT K -a 
200 5 JNPLOT - a 
200S =_JT K 5 
^0.0 JNPLOT K 5 
2015 PLOT • * 
2(220 NEXT L 
2021 POR f =1 TO 
1 1 £ I 5 > T K 
2025 30SUB 2020 
£020 =P'Int -- : 
FR.2R 2E NO'.'G. 
20 25 _5 T EC =50 » 1 
20*0 SOTO 200 
3000 =OP t< =1 TO 10 
300 2 -E-T K 
200; ".'- L = l TO 2 
300- "iUB 10 20 
30C" . 5UE -OaO 
300 : 2UB 1030 
30{ sJ5UB 1033 

2Cv: .£•"" _ 

3010 RETURN 

3020 POP _=- _ 2 - 

3025 1-02 'JE 1050 

30 30 GOSUB 1030 

3035 NEXT <_ 

2025 503UB 1022 

304O CETu=-- 
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APPLE 
SOFT? 

Venha para o clube 
diferente de Apple 

"MAGIC 
WORLD 
CLUB" 

Escreva para nos e 

tenha uma 

apple surpresa. 

Caixa Postal 62521. 

CEP 01150 

Tel.: (011)664316 

Sao Paulo-SP 




Um CLUBE MUITO ESPECIAL 
Para usuarios dos equipamentos 
TK-85. TK90X, CP-400, CP-500 
e compativeis 



NOVA FASt 1966 

VOCE RECEBf. INTEIRAMENTE 

CFtATIS: 

— Um curso completo de BASIC. 

— Edtt6« Mensjis do Compuctub 
News, com program** de logos. 
jplic jiivos e dicas especiais para o 
seu equipamenlo. 

— A cada 45 dias. programas 
arnplamente documentados, com 
seu* manuals de instrucio. 
gravados em fiu HOT LINE, a 
rnelhor op^ao para o seu acervo de 
softs. 

E AINDA GANHA O DIREITO DE 
ADQUIRIR. PELO MENOR PREgO DO 
MERCADO, MICROS. 
SUPRIMENTOS E ACESSORIOS. 
Associando-se agora, voce ainda 
recebe os 5 bolelins ;a edit ados pelo 
clube, induindo o especial 
dezembro^85. 

Solicite. ainda ho|e, iniormai;6es 
detalhadas acerca de como partidpar 
do COMPUCLUB. Nao se esqueca. 
porem, de indicar o tipo de micro que 
voce possui. 
COMPUCIUB — Caixa Postal 46 (36S70) Vicosa-MG 



FORMULARIOS 

CONTINUOS 

• Diskettes. Mini Diskettes 

• Formuleirios Oficiais 

• Fitas ppara Impressoras 

• Fitas Magneticas 

• Etiquetas Auto-colantes 

• Arquivos para Diskettes 

• Pastas para Formularios 

ATENDIMENTO 

IMEDIATO 

E PRONTA ENTREGA 

Rua Antonio das Chagas, 180 
CEP 04714 — Sao Paulo-SP 
Tels.: 548-7137 e 523-8563 

JEigl>RINT 

FORMULARIOS E REPRESElTApOES LTDA. 



i 

U1 



n 



UTILIZE 

ESTE 

ESPAQO! 

A MICRO SISTEMAS 
oferece a seus 
clientes este servico 
especial. 

Com esta opcSo de 
espaco e custo, 
ninguem vai deixar de 
anunciar. 
Consulte-nos pelo 
telefone 262-6306 
(Departamento de 
Publicidade), com a 
Srta. Nilce ou 
(011)853-3800, coma 
Srta. Vera. 



ma. «in. o 0fi» 



DadoS 



CURSOS 
DISPONIUEIS 



Introducoo 6 Microcomputocoo 
DOS - PC "Sistemo Operocionol 
UNIX "Sistemo Operocionol' 
UNGUAGEMC "Ling. Progromocdo" 
dDASE II "Progromocoo Llosico" 
dDASE II "Progromocoo Avoncodo" 



- dDASE III "Progromocoo Ddsico" 

- LOTUS 1 -2-3 "Ron. Eletrdnico" 

' - Framework "Sistemo Integrodo" 

- Symphony "Sistemo Integrodo" 

- Wordstar "Processodor de Texto' 

* Em desenvolvimento 



MATERIAIS DIDATICOS: Publicacoes T^cnicos desenvolvidos em 

Portugu§s 

REOJloOS DIDATICOS: Conceitos e exemplos prdticos, otroves de 

Micros e Teloo de 72" 

CUftSOS FECHADOS E ABERTOS 



NOVO ENDERECO R.uo Groeiandio 1 750 - Jordim Europo 
CEP 01434 -SfioPoulo SP 
Telefones 881 -4599 - 881 -4032 



ALBAMAR 

ELETRONICA LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 C10C15 C20 
C30 e outros 



•FITAS 

MAGNETICAS 
1 200 e 2400 p6s 

VHS — BETAMAX 

De T5 a T120 
• DISKETTES 

5 1/4 e 8" _ 



Rua Conde de Leopoldina, 
270-A Sao Cristbvao — R.J. 
Tels.: (021) 580-6729 
580-8276 



.*. 



Micro-golfe 
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BASIC . COBOL 



CURSOS DELTA/DATA RIO 



Turmas as 2 as e 4 as , 3 as e 5 as e aos s^bados. 
Microcomputadores CP-500 da Prologica. 
Plantao de duvidas. 
Pregos promocionais parcelados. 
Apostilas e certif icado de conclusao. 
"Clube do Micro" as 6 as onde o CP-500 
e todo seu : 



MICRO SISTEMAS, Janeiro/86 



Rua Machado Bitencourt, 278 (01 1) 549-981 1 S. Paulo - SP 
Rua Voluntarios da Patria, 286 - 29 (021) 286-4740 - 
R. de Janeiro - RJ 



O "PACOTAO" OFERECE: 



Micros 
• Software 




p Assistencia Tecnica 
IBM/PC. XT e AT 

• Suprimentos 
Acessorios Perifericos 

CONSULTE 
NOSSOSPREQOS! 

LIGUE JA! 

(011)276.8988 



Roo Luiz Goes, 1 894 — Soo Paulo 
CEP 04043 - Telex-. (Oil) 37755 DTRD 



Crie seus proprios jogos e movimente figuras em alta resolugao, 
nos micros da linha Apple, utilizando as rotinas da ROM. 



Alta resolucao 
em Assembler (I) 



Evandro Mascarenhas de Oliveira 



De maneira analoga ao publicado em MS n? 27, serSo 
discutidos os aspectos ligados ao uso das sub-rotinas 
da ROM e enderecos da pigina zero para a geracSo e 
movimentacfo de figuras em alta resolu?fo graTica, 
utilizando a linguagem de maquina do microprocessador 6502. 
A alta resolucao grffica ocupa duas paginas de 8 Kb da me- 
moria de video, indo a pagina 1 do endereco $2000 ao ende- 
reco I3FFF e a pdgina 2 do endereco $4000 ao endereco 
$5FFF. 

A pdgina do modo texto e" constituida por 24 linhas e 40 
colunas, tendo como unidade graTica a matriz de 7 colunas por 
8 linhas. Em modo graTico de alta resolucao, esta matriz e" dis- 
tribuida nas 24 linhas e 40 colunas resultando em 24 x 8 = 192 
linhas em modo grafico complete ou 20 x 8 = 160 linhas em 
modo grafico/texto e 40 x 7 = 280 colunas, num total de 280 
x 192 = 53760 pontos. 

Para diminuir a quantidade da mem6ria de video, relativa 
aos 53760 pontos, adotou-se um byte de 7 bits (o oitavo bit 
serve para controle da cor) para unidade graTica por linha, fi- 
cando os 280 pontos em cada linha referenciados por 280/7 
= 40 bytes ou enderecos, havendo no total das linhas 192 x 
40 = 7680 enderecos (os 512 enderecos restantes nSo utiliza- 
dos na memdria de video dao o total de 8192 bytes ou 8 Kb 
por pdgina). 

Quando um bit tern o valor 1, acende um ponto na tela; 
e quando tern o valor 0, mant6m-se apagado. Se um determi- 
nado byte na memoria de video, por exemplo, tern o valor 
$73 (binario 01 1 1001 1), ter-se-a cinco pontos com nivel alto 
- portanto, acesos - e dois com nivel baixo - apagados - que 
se apresentam de maneira reversa ao binano (figura 1). 

A determinacSo da posicao de um ponto luminoso e a pagi- 
na da memoria de video onde esta" sendo exibido, esta"o rela- 
cionadas as seguintes sub-rotinas e enderecos da pagina zero: 
1 - HPOSN: Sub-rotina com inicio em $F41 1, da" a posicao 
inicial da linha para o ponto de coordenadas C (coluna) e L (li- 
nha), sendo que: 

C - Varia de a 279($00 a $ 1 17), cujos valores neces- 
sitam ser referidos por dois enderecos, LSB e MSB, respectiva- 
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mente, byte menos significativo e byte mais significativo. 

L - Varia de a 191($00 a $BF), bastando um so en- 
dereco para ser referenciada. 

Carregando o acumulador com o valor da linha, o registra- 
dor X com o LSB e o registrador Y com o MSB da coluna, 
ter-se-a o endereco inicial da linha nos enderecos $27(MSB) e 
$26(LSB), designados, respectivamente, por HBASH e HBASL. 

2 - HNDX: Representado pelo endereco $E5, e o niimero 
de bytes a ser adicionado ao endereco inicial da linha. Indica 
ainda a parte inteira da coordenada (coluna) dividida por sete. 

3 - HP AG: Dado pelo endereco $E6, mostra a pagina da 
mem6ria de video onde esti sendo exibido o ponto. Tern o va- 
lor $20, se for pagina 1 ; e $40, caso seja pagina 2. 

4 - HMASK: Colocado no endereco $30, indica a posicSo 
do bit Ugado (valor 1) dentro do byte das colunas de a 279. 
O byte zero, representative das colunas de a 6 (7 colunas), 
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Figura 1 - Hexadecimal 73 eseu respective) binario em algum endereco 
da memdria, alem de sua referenda na memdria de video. 
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CRAFT-XT 



PC 16 bits IBM 
compativel. Memoria 
RAM de 256 kbytes, 
expandivel ate 640 
kbytes. Opera em tempo 

real. 2 drives de 5 1/4 
de 340 kbytes cada ou 
drive de 5* 1/4" de 340 



Kbytes e ate 2 discos 
rigidos Winchester de 
10 Mbytes cada. Tecia- 
do de 85 teclas com 
microprocessador 
Monitor monocromatico 
de 12", com tela verde 
anti-reflexiva. 






CPU com teclado 
numerico reduzido 
Monitor prof issional 
Compo (24 MHz). 
Interface e drive 5 1/^ • 
32 funqoes pre-pro- 



^SaTeloTu^ 
programaveis. Sistema 
Ivanita (geracao de 
caracteres em portu^ 
gues). Conectores ba- 
nhados a ouro. 



Na Clappy, o Craft II Plus e o Craft-XT 
ainda tern 3 software exclusivos: 
o atendimento especializado, 
a assistencia tecnica perfeita e as 
melhores condicoes de pre90 
e pagamento da cidade. 

Passe na Clappy e faca um teste 
sem compromisso. Voce vai ver como o 
Craft II Plus e o Craft-XT sao altamente 
compativeis com voce. 



^ AHCROCO/MPUMDOreS LTD4. 

Clappy 

O lado gente da maquina 



Centro: Av. Rio Branco, 12 - loja e sobreloja 

Tel.: (021) 253-3395 
Copacabana: Rua Pompeu Loureiro, 99 

Tels.: (021) 236-7175/257-4398 

Visite nossas lojas ou solicite a visita de um representante. 



ALTA RESOLUCAO EM ASSEMBLER (I) 



tern os valores lidos do endereco $30, conforme a figura 2. 
Estes valores se repetem para todos os 40 bytes de cada li- 
nha (byte $00 ao byte $27), na mesma sequencia. 



programa a seguir coloca a tela em modo graTico total, 
p£gina 2, tendo o fundo com a cor violeta: 
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Figura 2 - Tabela 
de valores do endereco 
$30 para o byte zero, 
relativo as colunas de a 6. 
O bindrio 6 lido da 
direita para a esquerda. 



' ' : 


■ 


DM 


•300 




Cfl FT 


3 


m 


»FT.DB 


• BUB-ROT IMA HGP7 


- ST. 


- 


1 1 ••• 


••33 


l 


■ ir 


« 




• IC 


I COB V1DLETA 




9 


JSK 


•FTF4 




a 


t 


RTfi 







9 — HPLOT: Sub-rotina com inicio em $F457, plota um 
ponto com as coordenadas C e L e a cor nos enderecos $ IC ou 
$E4. O registrador A fica com o valor da linha, o registrador Y 
com o MSB da coluna e o registrador X com o LSB da coluna. 

O programa a seguir plota um ponto na linha 80 e na coluna 
140, com a cor violeta: 



O programa a seguir exibe na tela de video, pdgina 1 , o va- 
lor 2000 para o endereco do ponto com coordenadas C =3 e 
L = (MSB = 20, endereco $27 e LBS = 00, endereco $26) o 
valor para o endereco $ E5 (parte inteira de 3/7 = 0, portan- 
to, byte $00) e o valor 88 no endereco $30. 
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iDlDERECO INICIAL DO FROGRAMA 

■ LIMPA A 'El.-. DI 

1PAGINA 1 DA ALTA RESOLUCAO GRAFirA 

•LINHA 

■LSB DA COLUNA - 

•MSB DA COLUNA 3 

•SU6-R0TINA HPOSN 

• t 1W NA TELA O HSB>30 

<t. I BE MA Ul- LSflvOi DANU) EI<D. 
' INICIAL *2O0O 

• COLOCA ESFACO NA TELA OE VIDEO 

■ E.XIBE NUHERO DE BYTES A SEB 

• ADICIONADO AO END. INICIAL (2000 

•COLOCA ESFACO NA TELA DE VIDEO 
'EMBE VALOR »8U CON BIT 
•LIGADO NA COLUNA ] I TABELA I- 



10 - HLLN: Sub-rotina com inicio em $F53A, traca uma li- 
nha do mais recente ponto plotado ao ponto de coordenadas C 
e L. O acumulador leva o LSB da coluna, o registrador X, o 
MSB da coluna e o registrador Y com o valor da linha. 

1 1 - HFIND: Sub-rotina com inicio em $F5CB, di a posi- 
ca"o do cursor, sendo a coordenada horizontal indicada em 
$E0(LSB) e $E1(MSB) e a vertical em $E2. 

O programa seguinte coloca o fundo com a cor azul e plota 
uma linha obliqua entre os pontos de coordenadas 0,191 e 
279,0: 



5 — HCLR: Sub-rotina com inicio em $F3F2, limpa a p2gi- 
na de acordo com o valor em $E6. 

6 - HGR: Sub-rotina com inicio em $F3E2, limpa a p$gina 
1 e coloca a tela em modo misto graTico/texto. 

7 - HGR2: Sub-rotina com inicio em $F3D8, limpa a pi- 
gina 2 e coloca a tela em modo graTico completo (Jull screen). 

8 - BKGND: Sub-rotina com inicio em $F3F4, gera o fun- 
do com a cor nos enderecos $ IC ou $E4. 

O programa seguinte coloca a tela em modo misto, pagina 
1, limpa a drea de texto e coloca o fundo com a cor branca: 
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Na figura 3, podemos ver um quadro com os endere90s da 
p£gina zero e as sub-rotinas empregadas na geracSo de figuras 
em alta resolu9So, exceto a tabela de forma, que serfi analisada 
na segunda parte deste artigo. 



Evandro Mascarenhas de Oliveira 6 M6dico e vem desenvolvendo suas 
atividades nas Areas de Laboratdrio Clinico e InstrumentecSo Mddica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Nucleo 
de Computacao Eletrdnica da UFRJ, nas linguagens FORTRAN IV e 
AL GOL. E usuirio dos micros NEZ8000 e AP II. 
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Figura 3 - 
Quadro de 
enderecos da 
pagina zero e 
sub-rotinas 
para a 
geracdo de 
figuras em 
alta resohtcdo 
grdfica. 
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BARAS, E. M.. Lotus 

1-2-3: Guia do Usuirio, Editors 

McGraw-Hill. 

Este e um livro bastante dida- 
tico e possui como objetivo prin- 
cipal ensinar atraves da pratica. 
Assim, o leitor aprende coman- 
dos, conceitos e tecnicas do Lotus 
,1-2-3 atraves de aplicacoes, ou se- 
ja. a cada capftulo ele acompanha 



o desenvolvimento de uma aplica- 
cao, onde todos os comandos e 
conceitos sao explicados. Este 
processo e bem ef icaz, pois as tec- 
nicas de desenvolvimento encon- 
tradas no livro aplicam-se a quase 
tudo que se pode fazer com este 
software. 

A obra foi dividida em tres 
partes principals: Introdugao aos 
Graficos e a Planilhade Trabalho; 
Funpoes de Bancos de Dados e 
Aplicagoes e Metodos Avancados. 
Os capftulos iniciais introduzem o 
leitor no assunto, apresentando as 
varias utilizacoes do Lotus 1-2-3. 
Desta forma, e possi'vel que um 
leitor inexperiente possa entende- 
lo. 

Ainda sobre o mesmo tema, a 
McGraw-Hill possui o Guia do 
Operador, que traz em apenas 22 
paginas os comandos basicos do 
1-2-3. 



COLETTA, P., Jogos GrAficos 
para o Apple, Editors 
Campus. 

Em sua primeira pane, este li- 
vro traz explicacoes sobre tabelas 
de som e forma do Apple II e 
apresenta uma rotina de som e um 



conjunto de caracteres alfanum^- 
ricos necessarios para a operacao 
de cada jogo. Na segunda parte, 
sao apresentados dez jogos acom- 
panhados de uma listagem. Todos 
os jogos, que utilizam graficos co- 
loridos em alta resolugao, apre- 
sentam, ainda, uma lista das va- 
riaveis, os controles necessarios 
para sua operacao e uma descri- 
cao da logica. Alem disso, o autor 
da sugestdes que permitem ao lei- 
tor incrementar seus jogos atraves 
das rotinas de som e de cor. 



MIRSHAWKA. V. JR., 
MIRSHAWKA, S., Jogos e 
Desenhos no TK90X, Editors 
Nobel. 

Para utilizar este livro, e preci- 
so ter um pouco de conhecimento 
sobre o BASIC no TK90X. Ele 
apresenta, ao todo, vinte listagens 
de jogos e graficos, que foram ela- 
borados com o objetivo de instruir 
e, principalmente, divertir o lei- 
tor. 

No caso dos jogos, destacou- 
se como sao os controles, embora 
sua Ibgica nao seja explicada em 
nenhum programa, ja que eles sao 
bem simples. 



SANDERS, W. B., Manual 
do Apple Macintosh, 
Editors MacGraw Hill 

O autor de Manual do Apple 
Macintosh teve a preocupacao de 
nao escrever simplesmente um 
manual, na concepcao real da pa- 
lavra. Alem de mostrar ao usuario 
como se deve operar o equipa- 
mento, o livro tambem e um guia 
para aqueles que desejam comprar 
um computador, mas nab tern 
opiniao formada sobre qual esco- 
Iher. Na tentativa de auxiliar nes- 
ta decisao, o autor mostra o que o 
equipamento e capaz de fazer e as 
vantagens que o usuario obtem ao 
leva-lo para casa. 



ENDEREQO DAS EDITORAS 

Editora Campus — Rua Barao de 
Itapagipe, 55, CEP 20261, tel.: 
284-8443. Rio de Janeiro; 

Editora McGraw-Hill — RuaTaba- 
pua, 1105, ItaimBibi, CEP 04533, 
tel.: 280-6622. Sao Paulo; 

Editora Nobel - Rua da Balsa, 
559, CEP 02910, tel.: 857-9444, 
Sao Paulo. 
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O MELHOR SOFTWARE 
PARA SUA CABECA! 
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TK 82/83/85, CP 200 e Sinclair ZX81 

1 Usando linguagemde maquina $ 85.000 

2 Jogos em linguagem de maquina vol. 1 . .$ 79.000 

3 Jogos em linguagemde maquina vol. 2 . .$ 85.000 

4 Jogos em linguagem de maquina vol. 3. .$ 92.000 

5 Criando em linguagem de maquina . . . .$ 99.000 

6 Tabela de mnemonicos Z80 $ 17.000 

7 O seu micro e o mundo externo $ 95.000 

8 Basic TK vol. I $ 65.000 

9 Basic TKvol. II $ 78.000 

10 Basic TK vol. Ill $ 88.000 

11 Colecab de programas vol. 3 $ 59.000 

12 Dissecando jogos $ 65.000 

13 Evoluindo no Basic TK $ 79.000 

14 Super Basic TK $ 89.000 

15 Informdtica na escola $ 67.000 

16 Curso de jogos em Basic TK $ 45.000 

ZX SPECTRUM ETK 90 X 

17 Explorando o TK 90 X $ 90.000 

APPLE II (TK2000) 

18 Tabela de mnemonicos do 6502 $ 22.000 

19 Assembly 6502 $ 9 7. 000 

20 Guia do Programador DOS $ 99.OOO 

MSX 

21 Dominando o Expert $102,000 

22 Linguagem Basic MSX $105,000 

23 Resumo de operac6esdo Expert $ 24.000 

24 Colecao de Programas MSX (vol. 1). . . .$ 93. 000 

PRECOS vAlidos p/ tempo limitado 



Nossos livros estao a venda tamtam nas boas livrarias e lojas de computacao. 
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Utilizando rotulos 

Facilite a estruturaca'o, acom- 
preensibilidade e a manutencao 
de seus programas no PC-1500, 
fazendo uso de r6tulos como no 
exemplo abaixo: 

Ao invgs de: 

50GOSUB 1000 

1000 C=P*N: RETURN 



Faca: 

50 GOSUB "ROTINA DE 
CUSTO" 

1000 "ROTINA DE CUSTO" 
C=P*N: RETURN 

Tambem aceitam r6tulos os 
seguintes comandos: 

GOTO, IF... THEN, LIST, 
LLIST, RESTORE, RUN. 

Aldo Rodrigues da Costa — MG 
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Envie suas dicas para a Redacao de 
MICRO SI STEM AS na Av. Presidente 
Wilson, 165 - grupo 1210. Centra, Rio de 
Janeiro, RJ. CEP 20030 



Linha TK 2000 



Linha APPLE 



Mensagem em parabola 

Esta dica serve para mostrar no video 
a mensagem contida na variavel A$. Ca- 
so a mensagem exceda os limites da tela, 
basta modificar a formula da linha 30. 



5 H0ME:1NPUT"N0ME " , "|A*IHOME 

10 FOR A-ft TO 6.2 STEP .2 

2ft 8-SINIA) 

3ft PRINT TAB(B«lft*15)>A* 

49 NEXT A 

se GOTO lft 
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Amplie caracteres 

Com esta dica, voce podeni ampliar 
os caracteres do seu TK 2000. Digite 
as linhas abaixo e rode com RUN, 
depois apague-os: 

1 DATA 165.9. 162.7. 173. •.64.133. 
ft. 6. ft. 6. ft, 144. 5, 165, 2. 32. ft. 248.1 
36. 2*2. 2»8. 243, 23ft. 2. 173. 6. 3. 24. 
1*5. 4. 141. 6. 3. 2*1.64. 2*8. 217. 96 

2 FOR F-76B TO 8ft7:READ PiPOKE F 
.PiNEXT F 

Para usar o programa, digite: 

1» HOME«INPUT "QUAL A COR ? 
"lAiPRINTUNPUT"8UAL A LETRA 7 

~|A% 
2» GRiPOKE 48.AIHTAB UVTAB UPRI 
NT A* 

3ft POKE 774.32IP0KE 2.10 
4ft CALL 768 
5« GET AtiTEXTtRUN 



William Joseph Watterson — SP 
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Linha 



ZX Spectrum 



Memoria disponfvel 

Para saber quanto resta de memo- 
ria em seu micro, digite as linhas 
abaixo e rode o programa. Depois, 
sempre que quiser saber quanto so- 
bra de mem6ria, use PRINT USR 
23300. 

A rotina fica guardada na area do 
buffer da impressora, e se voce quiser 
coloca-la em outro local da mem6ria, 
basta mudar os enderecos da linha 10 
antes de rodar o programa. 

10 FOR F«233ft0 !■ nu 
2ft READ AtPOKE F.A:NEXT F 

3ft data 2*5, 26, 31, 42, 178, 92, 23,' 

.A6,68.77.?ftl 



Carlos Alberto Guerreiro — MG 



Linha ZX81 



Caleidoscopio 

Ai vai uma Dica que explora a 
capacidade graTica do seu compati- 
vel com ZX81. Apos rodar o pro- 
grama, mude o seu efeito alterando 
a linha 30, para: 

3ft LET AS«CHRI INT RND»lft«128> 

3ft LET A4-CHR* INT (RNDMft* 128 > » 
CHRS INT <RND»lft»l> 

Podendo entSo alterar o compri- 
mento da variavel AS . 

1 REN -- CALEIDOSCOPIO -- 

lft CLS 

2ft LET A-l 

3ft LET A«=CHR» INT (RND*l»+i) 

4ft LET B=2» 

5ft LET C«B»PN[> 

6ft LET D«B»RND 

'ft PRINT AT I .DiAl 

8ft PRINT AT D.CiA* 

9ft PRINT AT C.B-Dsrt*. 

lftft PRINT AT B-n.ClA* 

lift PRINT AT D.P-i :.<* 

12ft PRINT AT B-l".PjA» 

13ft PRINT AT B-I.B-DrAt 

14ft PRINT hi B-I.B-CjA* 

15ft LtT A«A*1 

1-ift IF- A»2ft THEN RUN 

17ft GOTO 5« 
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Linha APPLE 



Impressao profissional 

Esta dica serve para escrever em 
seus joguinhos ou aplicativos peque- 
nas mensagens com mais elegancia. 
A mensagem deve ser introduzida 
na variavel A$, que se encontra na 
linha 5. Para mudar a linha, onde 
vai ser impressa a mensagem, basta 
mudar o VTAB da linha 30. 

5 HOHF: INPUT "FRASE '•"|A*IH0HE 

lft FOR A-l TO LEN(At) 

3ft UTAB 1 tHTAB A 

4ft B»»MID*<AVA, 1 > 

45 SOUND ASC<B«>+2ft.4 

•,9 PRINT B*lCHR*(242)iCHR»(199) 

Aft NEXT A 

Jorge Pablo Zapata Rivera — BA 



Linha ZX 



Spectrum 



UDG2doTK90X 

A funcao UDG 2 do TK90X e 
uma mSo na roda para redefinir os 
caracteres do micro, mas nem tudo 
foi dito no manual. Experimente 
apertar uma tecla de A a U, acom- 
panhada de CAPS SHIFT e voce" ve- 
ra que pode passar a redefiniclo da 
tecla pressionada para a letra que 
esta em edicao. 

Ricardo Costa- RJ 



Linha ZX81 



Efeito na tela 

Esta rotina provoca nos compu- 
tadores da linha ZX81 um efeito 
muito interessante no video, poden- 
do ser usada tambem em qualquer 
programa: 

10 HI M (5 orictcrri 

qua i S'iui r ) 
.?0 P"HE 16514,62 
J» POKE 16515.48 
4ft POKE 16316,237 

Kf 16317,71 
60 POKE 163 IB, 2*1 
'ft RANI- USR 16514 
Oft FOR A'* TO lftft 
9ft POKE 1651'.. A 
lftft RANI) USR 16514 
lift NEXT A 

Voce" notarf que apos rodar a ro- 
tina, todos os caracteres estarao in- 
definidos; nao se alarme, para voltar 
ao normal 6 so dar estes comandos 
diretos: 

POKE 16515^0 (new line) e 

RAND USR 16514 
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Linha APPLE 



Conversao DEC-HEX 



Muitas vezes, se faz necessaria 
uma rapida conversSo Decimal-Hexa- 
decimal. Normalmente, um programa 
para esse fim, alem de ser lento, ne- 
cessita de uma serie de manipulates 
de "Strings" e 6 um pouco dispendio- 
so. 

Mas, neste programa, a conversSo 
e" feita usando uma rotina intrfnseca 
do Monitor, o que nos garante uma 
alta velocidade e uma simplicidade 
maior. 

Esta rotina 'TRINTA" o conteu- 



do dos registros XY em HEXA, e seu 
endereco6 SFD99. 

Observacao: O valor maximo de- 
cimal 665535. 

lft HOME 

2« REM DEC-HEX 

3ft PRINT"ENTRE COM NUMERO DEC 

"lUNPUT ZlPRINTiPRINT 

4ft K"INT<Z/256XF-Z-K«256 

5» X-FlV-K 

6* POKE 768.162XP0KE 769,X»P0KE 

77ft,16ft«P0KE 771. Y 

7ft POKE 772.32SP0KE 773.1531P0KE 

774.253 
75 POKE 775.96 
8« CALL 768 
9ft PRINTiPRINT 
lftft GOTO 3ft 



Alexandre Magno Rodrigues Alves — SP 



Linha ZX81 



Funcoes especiais 

Use esta dica para descobrir o 
nome de um programa em seu 
TK85. 



lft LET Z-ft 

.'ft I E I Z§-"A" 

1ft DIM A*( lftft) 

4ft KAND USR 830*. 

5ft FOR I»l TO LEN A* 

6ft IF CODE A»(IX12H THEN Nl • I I 

70 PR INI "PROURAMAt ">ASIT0 I) 
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Linha TRS-80 



Destrave o LIST 
no TRS-80 

Com o seguinte POKE, qualquer 
programa com LIST todo baguncado 
podera ser listado SOMENTE NA 
TELA. POKE 17129,239. Se nSo 
funcionar, desligue e ligue o compu- 
tador, recarregue o programa e d6 
POKE 17130,66. Se ainda nSo fun- 
cionar, desligue e ligue o computa- 
dor e va direto para o BASIC residen- 
te, de um PRINT PEEK (17129), 
PEEK (17130), anotando os valores 
impressos e, depois, entre no DOS. 
Carregue o mesmo programa e de" 
POKE 17129, nl: POKE 17130, n2, 
sendo nl e n2 os valores que voc€ 
tinha adotado. 



Bruno Lopes Fernando Cabral — PB 



Linha APPLE 



eTK2000 



Gravacao de dados 

Um dos grandes problemas do 
Applesoft/Basic i a gravacao de da- 
dos alfanumSricos em fita, o que di- 
ficulta muito a criacao de progra- 
mas do tipo Banco de Dados, por 
exemplo. 

A solu?5o 6 simular uma funcao 
que execute com precisao e segu- 
ran^a. fi o que as rotinas abaixo 
propOem. 

ROTINA 1 : 



tft Horn 

2ft CLEAR 

JO DIM AI255) ,A*<255> 
4« INPUT TEXTOs '|B* 
5ft A'0>»LEN(B*> 
*.«» FOR 1-1 TO Alft) 
'ft AV I ■■ nil'* (• * . 1,1) 
Oft NEXT I 

99 FOR I»l 10 A'ft) 
lftft AM •=ASC<A»(I>> 
lift NEXT I 

120 PR INI PRONiy":GET X* 
13ft -IORE A 
14ft PRIN1:PR1NT OK" 



ROTINA 2: 

lft HOME 

l I I AR 
:iU DIM A<255 '.A*t255) 
4ft PRINT "PRONTO^'iOET XI 
t,0 kH ALL A 
Aft EOR I«l TO Alft) 
'O ..*■ I >«CHR*iA< I > i 
:<*• Nl « I I 

vo HklNI IKXIu: "i 
,,... f0H ixj TO ACftuPRINI A*(I)i 
:NI »l I 

Estes dois pequenos programas 
rodam sem problema no TK 2000. 

Is ACONSELHAVEL, porem, 
que estes sejam depurados para fun- 
cionarem perfeitamente, de acordo 
com as necessidades de cada um. 
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Linha ZX81 



INKEY$ para v&rias 
teclas 

Diversas vezes, num programa 
em BASIC, temos necessidade de 
interpretar mais de uma tecla, 
pressionada simultaneamente. 

Para resolver tal problema, 
pode ser utilizada uma variavel 
do sistema contida nos endere- 
cos 16421 e 16422, conseqiien- 
temente, o valor das teclas pres- 
sionadas, serf: 

PEEK 16421 *256»PEEK 16422 

Basta guardar o resultado em 
uma variavel e, a partir dai, fazer 
todo o resto. Veja um exemplo 
com este pequeno programa que 
interpreta apenas o pressionar si- 
multaneo de 5 e ou 8 e 0, mui- 
to utilizado em alguns jogos. 

lft CLS 

2ft LET X-FEEK 16421+2S6«PEEK 16422 

3ft IF X-56Bft7 THEN PftINT AT lft,16»"5 

E ft" 
4ft IF X-62959 THEN PRINT AT lft,16l"8 

E ft" 
5ft GOTO lft 

Os valores das teclas pressio- 
nadas podem ser obtidos a partir 
da seguinte rotina: 

9ftftft PRINT AT 21.ftlPEEK 16421»256«PE 

EK 16422 

Vftlft GOTO 9ftftft 



Linha TK 2000 



Chamadas 
em Assembler 

Duas dicas para os novos usuarios 
do TK 2000 que acham que call's no 
TK 2000 nffo podem ser usados com 
os do Apple. Ii um engano. Por exem- 
plo, digite a seguinte rotina: 

•seoftft DAIA 16ft. 1.162, ft.Ua. 24. 23 
3.1. r»n ,852, 14* . 48 . 192. 232 . 224 . 2 
53, 2*0.24 ■■..'36.2*18,237,96 
5«ftlft EOR A=/6B TO 769JREAD BlPO 
KE A.B = NE " 1 

5M '.* EOR A»l IO 255 5IEP 3ICALL 
'68INEX1 

E veja que, tanto no Apple quanto 
no TK 2000, ela produz um interes- 
sante efeito sonoro. Portanto, POKEs 
a partir do endereco 768 rodam per- 
feitamente no TK 2000. 

Para simular o CALL -958 do 
Apple, basta substitui-lo por PRINT 
SPC (39): HTAB 1. Os CALL -936 
do Integer BASIC de alguns Apple II, 
tambem rodam perfeitamente no TK 
2000, e sem modificacoes. 

Bruno Lopes Fernando Cabral — PB 



Para estudar FORTH, e preciso conhecer, pelo menos um pouco, 
sobre programagao estruturada. Nesta quarta licao, voce vai 
aprender algumas estruturas de controle que FORTH oferece. 



Curso de FORTH (IV) 



Antonio Costa. 



Quando FORTH foi inventado, um modismo deno- 
minado programac^o estruturada estava entusias- 
mando os cientistas de computasSo. Este modismo 
influenciou de tal forma as pessoas que conceberam 
FORTH que se tornou impossivel estudar a linguagem sem sa- 
ber o que e programa$So estruturada. 

Existem trechos de programas que, dependendo da situa- 
9S0, podem ser ou nSo executados. Outros trechos devem ser 
executados repetidamente enquanto certas conduces forem sa- 
tisfeitas. Isso significa que toda linguagem precisa ter coman- 
dos para controlar a execu^ao dos outros comandos. Tradicio- 
nalmente, tal controle era utilizado pelo IF. ..THEN GOTO. 
Foi entSo que o holandes Dijkstra escreveu um artigo denomi- 
nado "GO TO Considerado Prejudicial". Neste artigo, ele pro- 
pOe que se evite o uso de GO TO em certas circunstancias. Para 
substituir o GO TO, foram propostas estruturas de controle fi- 
xas que no FORTH sSo representadas por IF ELSE THEN, 
BEGIN UNTIL e BEGIN WHILE UNTIL. Vamos dar uma olha- 
da em cada uma delas. 

IF THEN ELSE 

O funcionamento do IF pode ser descrito assim:uma com- 
parac^o e realizada por palavras do tipo >(maior),<(menor) 
ou = (igual). Esta comparac^o e feita entre o segundo elemen- 
to da pilha e o topo, tendo como resultado os valores boolea- 
nos falso ou verdadeiro. Falso e* representado por e verdadei- 
ro, por 1 . Caso o resultado seja verdadeiro, todas as palavras 
entre IF e ELSE sio executadas. Caso seja falso, as palavras 
entre ELSE e THEN sio executadas. 

Existe a possibilidade de IF ser usado sem ELSE. Quando 
isto ocorre, as palavras que esta"o entre o IF e o THEN devem 
ser executadas, se o resultado da comparagao for verdadeiro. 

A figura 1 resume o comportamento do IF. Vamos ver al- 
guns exemplos que tornarSo as coisas mais claras. 

Digamos que eu queria definir uma palavra que imprima 
uma advertencia, se o numero que esta no topo da pilha for 
maior que 100. Posso fazer isto com a definiijSo abaixo: 



56 



s 



Comportamento de IF 



IF Rn5^5\5^v3 

wuvwv 
wwvw 



ELSE 



THEN 

Se houver 1 no pllho. 
FORTH executo que 
esta entre IF e ELSE. 





H IF 



ELSE 



yVUJAAA 

uvvwja 

VWiAAA, 



THEN 

Se houver no pllho, 
FORTH executo que 
esto entre ELSE e THEN 







IF 



THEN 




Executodo openos 

quondo I esto 

no topo do pilha. 




Noto importonte IF retiro o topo do pilho 



Figura 1 
: ADV 



D'JP 



100 

IF 
THEN 



NIJMERO MUITO GRANDE" CR 



DUP serve para fazer uma copia do numero que esta" no 
topo da pilha, conforme mostrado no seguinte esquema: 



S3 




53 

>3 


DUP 



A c6pia e necessana porque as palavras comparadoras reti- 
ram da pilha os dois elementos que comparam e na"o queremos 
perder o numero original. ponto seguido de aspas imprime 
uma mensagem. No exemplo, esta mensagem e NUMERO 
MUITO GRANDE. Observe que a mensagem termina com as- 
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pas. Observe tambem que nflo existe es- 
pa$o entre o ponto e a primeira aspa e 
que existe um espaco entre a primeira 
aspa e a mensagem. A palavra CR faz 
com que o computador mude de linha 
apos a impressao da mensagem. Vejamos 
o funcionamento da palavra que acaba- 
mos de definir : 



54 ADV OK 
200 ADV 

NtfMERO MUITO GRANDE 



OK 



O numero 54 na*o provocou nenhu- 
ma reac,ao de ADV. O numero 100 fez 
com que a mensagem fosse impressa. 

Tentemos outro exemplo. Vamos de- 
finir uma palavra que substitui o topo 
da pilha por 1, se ele for maior que 0; 
por - 1 , se ele for negativo e por 0, se ele 
for nulo. Esta palavra e c ham a da de si- 
nal pelos matemiticos. 

: SINAL DUP > 
IF DROP l 
ELSE = 
IF 
ELSE -1 
THEN THEN ; 

Deixo para o leitor a decifrac.2o do 
funcionamento de SINAL. 

£ boa prdtica de programa^So colo- 
car os componentes de uma estrutura de 
controle um embaixo do outro. Isto po- 
de ser visto na defini$ao de SINAL: os 
ELSEs, estao embaixo dos IFs, e os 
THENs, dos ELSEs. 

BEGIN UNTIL 

O comportamento de BEGIN UNTIL 
pode ser resumido assim: entre o BEGIN 
e o UNTIL existem virias palavras que 
s3o executadas repetidamente ate que o 
UNTIL encontre a indica$ao de verda- 
deiro na pilha. Este comportamento e 
esquematizado na figura 2. A indicac^o 
de verdadeiro, conforme ja" vimos, e o 
numero 1. 

Vamos usar BEGIN UNTIL para defi- 
nir uma palavra muito util. Trata-se da 
SN. Esta palavra le o teclado ate que 
uma pessoa tecle S (simbolizando sim) 
ou N ( represent ando nao). Caso a letra 
teclada seja S, 1 e deixado na pilha. Ca- 
so seja N, e deixado na pilha. Veja o 
exemplo : 



BEGIN ." Tecle Slim) ou N(ao)" 
KEY DUP 78 ■ 
IF DROP 1 
ELSE 8 3 - 

IF I 1 
ELSE 
THEN THEN 
UNTIL ; 



Os numeros 78 e 83 sao os codigos 
de S e de N. Se a letra teclada for N (co- 
digo 73), sera executado "IF DROP 
1". O 1 servira para indicar ao UNTIL 
que ele pode parar de pedir a pessoa que 
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Comportamento 
do BEGIN. UNTIL 



BEGIN 



UNTIL 



BEGIN 



s 



UNTIL 



Fxecuto repelldo- Ao encontror I no 

mtnte o que osta topo. passa a oxe- 

entrt BEGIN a cuter os comandos 

UNTIL ate quo I que estlo ap6s o 

operege no topo. UNTIL. 



Figura 2 



tecle S ou N. O indica que N foi tecla- 
do. Se a tecla pressionada nSo for N, ela 
e comparada com S (codigo 83). Caso 
ela seja a S, FORTH executari "IF 1 1 ". 
O primeiro 1 serve para mostrar que S 
foi apertado; e o segundo, para fazer o 
UNTIL interromper as repeti^Oes. Se a 
pessoa n3o apertou nem S nem N, e 
deixado na pilha e, ao ser encontrado 
por UNTIL, fara" com que o programa 
pe$a mais uma vez que o usuario tecle 
S(im) ou N(3o). Nosso programinha e 
teimoso: enquanto alguem n3o aperta 
S ou N, ele n3o pira de Lnsistir. 

BEGIN WHILE REPEAT 

O BEGIN WHILE REPEAT n3o e 
muito diferente do BEGIN UNTIL. En- 
tre BEGIN e o REPEAT hi varias pa- 
lavras que devem ser executadas repeti- 
damente enquanto o WHILE encontrar 
um sinal de verdadeiro deixado na pilha 
por alguma compara^So. Se WHILE en- 
contrar um sinal de falso, ele interrom- 
pera" as repeticOes. O exemplo que va- 
mos fornecer e uma palavra que pede re- 
petidamente numeros e os soma ao topo 
da pilha. 



: SOMATdBIA 

BEGIN ." DE-ME UM NUMERO" CR 

DUP > 
WHILE REPEAT DROP 



Inicialmente, um e colocado no to- 
po da pilha. Numeros s3o pedidos, en- 
quanto a pessoa que os esta teclando 
n3o entrar com um que seja negativo. A 
palavra que le inteiros do teclado e os 
coloca na pilha e # IN. 

CARACTERES GRAFICOS 

A maioria dos computadores possui 
certos cbdigos que, impresses com 
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CURSO DE FORTH (IV) 



□anon 



ENCOLHE [ISOj |l 76 ||l 71 1| I5l| 
6 DO EMIT LOOP . 



176 32 



ESTICA 150 176 176 176 176 32 



6 DO EMIT LOOP 



Figura S 

EMIT, produzem simbolos grlficos. £ 
possivel imprimir seqiilncias destes sim- 
bolos grdficos de modo a formar dese- 
nhos muito uteis na confecc5o de jo- 
gos. A figura 3 mostra uma das muitas 
maneiras de fazer isto. Nesta figura, hi 
um esquema indicando como uma pe- 
quena minhoca egfpcia pode ser dese- 
rihada tanto com o corpo encolhido 



quanto com o corpo esticado. Os c6- 
digos graficos usados para criar a mi- 
nhoca sa"o de mdquinas compativeis 
com o TRS-80. Caso sua maquina se- 
ja da linha Sinclair, consulte o ma- 
nual para ver quais simbolos deve usar 
a fim de obter efeito semelhante. 

Na figura 4 mostramos como movi- 
mentar a minhoca pela tela. Nesta lista- 
gem, a palavra PAUSA emite uma nota 
musical de certa duracao e tern duas fina- 
lidades: produzir som e fazer FORTH per- 
der tempo de modo que o movimento da 
minhoca nSo seja muito rapido. Obser- 
ve que usamos a palavra NOTE, cuja de- 
finicao foi dada na primeira licSo. Reuti- 
lizar palavras definidas anteriormente e 
muito popular entre programadores 
FORTH, pois diminui em muito o tem- 
po de desenvolvimento de aplicativos. 
Aconselho o leitor a manter uma biblio- 
teca de palavras reutilizaveis. 

Vamos agora discutir a definicao de 
MINHOCA apresentada na figura 4. A 
palavra PAGE apaga a tela. A seqiiencia 
"15 EMIT" elimina o cursor de miqui- 
nas como o TRS-80 e o CP 500. Caso 
sua miquina nao seja uma destas duas, 
na"o e preciso incluir "15 EMIT" na defi- 
nicSb. A seqitfncia "6 I PTC ESTICA" 
coloca o cursor na coluna I da linha 6 e, 
em seguida, desenha a minhoca esticada. 



: ENCOLHE \bO 176 171 151 


176 


3? 


6 DO EMIT 


LOOP 








. ESTICA 150 176 176 176 


176 


32 


6 00 EMIT 


LOOP 








: PAUSA 98 40 


NOTE 








: MINHOCA PAGE 


15 


EMIT 






55 DO 6 1 


PTC 


ESTICA 


PAUSA 


6 1 


PTC 


ENCOLHE PAUSA 


LOOP ; 











Figura 4 



Como I esti variando de a 53, havera" a 
ilusao de movimento. 

Gostaria de chamar a atenc/Io do lei- 
tor para o fato de que o ultimo cariter 
do corpo da minhoca e um espa^o em 
branco (c6digo 32, no TRS-80). Se este 
espaco em branco na"o for incluido, a 
minhoca deixara um rastro ao se movi- 
mentar. 



Antonio Eduardo Costa Pereira 6 formado 
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nice da USP. Fez mestrado em Cidncia Espe- 
cial no Instituto de Pesquisas Espaciais, em S. 
J. dos Campos, e doutorado em Engenharia 
Elitrica na Cornell University, de Novo torque. 
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AMicrodigital 

lanpa no Brasil 

o micro pessoal 

demaiorsucesso 

no munda 



A psrtir de agora a histona dos 
micros pessoais vai ser contada em duas 
panes: antes e depot's do TK90X. 

TK 90X e, simplesmEnte, o unico 

micro pessoal lancado no Brasil que 
merece a classificacao de "software 
machine": urn caso raro de micro que 
pela sua facilidade de usa grandes 



recursos e preco acessfvel recebeu a 
aiencao dos criadores de programas e 
perifericos em lodo o mundo. 

Para voce rer uma idfra. existem 
mais de 2 mil programas, 70 
livros, 30 perriencos e mumeras ( 




revistas de usuanos disponiveis para ele 
intemacionalmeme 

E aqui o TK 90X |a sai com mais de 
1 DO programas, enquanto outros esiao 
em fase final de desenvoMmenta para 
Ihe dar mais opcoes para frabalhar, 
aprender ou se divemr que com qualquer 
ouiro micro. 

TK 90X rem duas versoes de 
memrjna ide 16 ou 48 K), imagem de 
alia resolucao grafica com 8 cores, 
carregamento rapido de programas 
Icontrolavel pelo propria monitor), som 
pela TV, letras maiusculas e minusculas 
e ainda uma exclusividade: acemuacao 
em ponugu§s. 

Faca o seu programa: peca jd uma 
demonstracao do novo TK 90X. 

A1ICRODIGIWL 



Chegouo micro 
cheio de programas. 
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